login
A087742
a(n) = 1+Abs[Prime[A005185[n]]-A005185[Prime[n]]].
0
2, 1, 1, 1, 2, 2, 2, 1, 2, 4, 8, 2, 5, 6, 6, 4, 4, 2, 5, 1, 4, 5, 7, 8, 3, 6, 2, 2, 8, 2, 4, 5, 13, 7, 8, 9, 13, 6, 15, 9, 12, 11, 8, 18, 6, 22, 26, 2, 24, 24, 8, 14, 32, 17, 31, 29, 21, 23, 13, 21, 18, 6, 12, 29, 28, 4, 23, 39, 11, 3, 21, 17, 14, 24, 20, 26, 20, 57, 10, 20, 23, 28, 40, 36, 30
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
Sequence in context: A256122 A087048 A109700 * A340996 A072530 A184341
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 01 2003
EXTENSIONS
Edited by N. J. A. Sloane, Nov 08 2005
STATUS
approved