Ludic numbers: Difference between revisions
m
→{{header|Mathematica}}
Drkameleon (talk | contribs) |
|||
Line 2,300:
{233,235,239}</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>n=10^5;
Ludic={1};
Line 2,310:
out
]
Nest[DoStep,seq,2500];
{{out}}▼
LengthWhile[Ludic, # < 1000 &]
Ludic[[2000 ;; 2005]]
Select[Subsets[Select[Ludic, # < 250 &], {3}], Differences[#] == {2, 4} &]</lang>
▲{{out}}
<pre>{1, 2, 3, 5, 7, 11, 13, 17, 23, 25, 29, 37, 41, 43, 47, 53, 61, 67, 71, 77, 83, 89, 91, 97, 107}
142
{21475, 21481, 21487, 21493, 21503, 21511}
|