Ludic numbers: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) |
|||
Line 2,300: | Line 2,300: | ||
{233,235,239}</pre> |
{233,235,239}</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>n=10^5; |
<lang Mathematica>n=10^5; |
||
Ludic={1}; |
Ludic={1}; |
||
Line 2,310: | Line 2,310: | ||
out |
out |
||
] |
] |
||
Nest[DoStep,seq,2500]; |
Nest[DoStep,seq,2500]; |
||
⚫ | |||
Ludic[[;; 25]] |
|||
LengthWhile[Ludic, # < 1000 &] |
LengthWhile[Ludic, # < 1000 &] |
||
Ludic[[2000 ;; 2005]] |
Ludic[[2000 ;; 2005]] |
||
Select[Subsets[Select[Ludic, # < 250 &], {3}], Differences[#] == {2, 4} &] |
Select[Subsets[Select[Ludic, # < 250 &], {3}], Differences[#] == {2, 4} &]</lang> |
||
⚫ | |||
{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} |
<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 |
142 |
||
{21475, 21481, 21487, 21493, 21503, 21511} |
{21475, 21481, 21487, 21493, 21503, 21511} |