OFFSET
0,4
COMMENTS
A triple recursion of the skip one Hofstadter Q.
MATHEMATICA
Hofstadter3[n_Integer?Positive] := Hofstadter3[n] = Hofstadter3[Hofstadter3[Min[n-1, Abs[n - Hofstadter3[n-1]]]]] + Hofstadter3[Abs[n - Hofstadter3[n-3]]]
Hofstadter3[0]=Hofstadter3[1] = Hofstadter3[2]= Hofstadter3[3]= 1
digits=200
ta=Table[Hofstadter3[n], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 06 2003
STATUS
approved