Van Eck sequence: Difference between revisions
m
→{{header|Mathematica}}
m (Updated description and link for Fōrmulæ solution) |
|||
Line 1,933:
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>
TakeList[Nest[If[MemberQ[#//Most, #//Last], Join[#, Length[#] - Last@Position[#//Most, #//Last]], Append[#, 0]]&, {0}, 999], {10, -10}] // Column</lang>
{{out}}
<pre>{0,0,1,0,2,0,2,2,1,6}
{
=={{header|Nim}}==
|