OFFSET
1,3
COMMENTS
A fourth-order recursive version of Hofstadter Q of the first term of A005185.
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..10000
MATHEMATICA
digits=200 Hofstadter[n_Integer?Positive] := Hofstadter[n] = Hofstadter[Hofstadter[Hofstadter[n - Hofstadter[n-1]]]] + Hofstadter[n - Hofstadter[n-2]] Hofstadter[1] = Hofstadter[2] = 1 a1=Table[Hofstadter[n], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 07 2003
STATUS
approved