6 lines
133 B
Text
6 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
|