OFFSET
1,1
COMMENTS
A "commutator" between the Hofstadter A005185 sequence and the primes.
MATHEMATICA
Hofstadter[n_Integer?Positive] := Hofstadter[n] = Hofstadter[n - Hofstadter[n-1]] + Hofstadter[n - Hofstadter[n-2]] Hofstadter[1] = Hofstadter[2] = 1 digits=200 a=Table[1+Abs[Prime[Hofstadter[n]]-Hofstadter[Prime[n]]], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 01 2003
EXTENSIONS
Edited by N. J. A. Sloane, Nov 08 2005
STATUS
approved