RosettaCodeData/Task/Hofstadter-Q-sequence/J/hofstadter-q-sequence-3.j
2023-07-01 13:44:08 -04:00

6 lines
75 B
Text

Q 1+i.10
1 1 2 3 3 4 5 5 6 6
Q 1000
502
+/2>/\ Q 1+i.100000
49798