7 lines
133 B
Text
7 lines
133 B
Text
|
Hofstadter /@ Range[10]
|
||
|
|
{1,1,2,3,3,4,5,5,6,6}
|
||
|
|
Hofstadter[1000]
|
||
|
|
502
|
||
|
|
Count[Differences[Hofstadter /@ Range[100000]], _?Negative]
|
||
|
|
49798
|