Attractive numbers: Difference between revisions
Content added Content deleted
No edit summary |
(Added Quackery.) |
||
Line 2,444: | Line 2,444: | ||
76 77 78 80 82 85 86 87 91 92 93 94 95 98 99 |
76 77 78 80 82 85 86 87 91 92 93 94 95 98 99 |
||
102 105 106 108 110 111 112 114 115 116 117 118 119 120</pre> |
102 105 106 108 110 111 112 114 115 116 117 118 119 120</pre> |
||
=={{header|Quackery}}== |
|||
<code>primefactors</code> is defined at [https://rosettacode.org/wiki/Prime_decomposition#Quackery Prime decomposition]. |
|||
<lang Quackery> [ primefactors size |
|||
primefactors size 1 = ] is attractive ( n --> b ) |
|||
120 times |
|||
[ i^ 1+ attractive if |
|||
[ i^ 1+ echo sp ] ]</lang> |
|||
{{out}} |
|||
<pre>4 6 8 9 10 12 14 15 18 20 21 22 25 26 27 28 30 32 33 34 35 38 39 42 44 45 46 48 49 50 51 52 55 57 58 62 63 65 66 68 69 70 72 74 75 76 77 78 80 82 85 86 87 91 92 93 94 95 98 99 102 105 106 108 110 111 112 114 115 116 117 118 119 120</pre> |
|||
=={{header|R}}== |
=={{header|R}}== |