OFFSET
1,3
COMMENTS
The fourth recursive of HofstadterQ second term of A005185.
MATHEMATICA
Hofstadter[n_Integer?Positive] := Hofstadter[n] = Hofstadter[n - Hofstadter[n-1]] + Hofstadter[Hofstadter[Hofstadter[n - Hofstadter[n-2]]]] Hofstadter[1] = Hofstadter[2] = 1 digits=200 a1=Table[Hofstadter[n], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 07 2003
STATUS
approved