login
A087741
a(n) = 1+Abs[A000040[A004001[n]]-A004001[A000040[n]]].
0
2, 1, 1, 2, 3, 2, 3, 5, 4, 4, 2, 5, 6, 7, 9, 12, 10, 4, 5, 2, 4, 5, 5, 9, 9, 11, 12, 7, 8, 10, 12, 15, 14, 14, 16, 13, 14, 19, 16, 15, 13, 14, 10, 7, 10, 9, 14, 19, 15, 15, 16, 14, 14, 16, 3, 9, 14, 16, 17, 20, 21, 27, 39, 41, 36, 37, 36, 38, 36, 30, 34, 34, 33, 30, 31, 32, 26, 28, 26, 29
OFFSET
1,1
COMMENTS
A "commutator" between the sequence of primes A000040 and the Conway-Hofstadter A004001 sequence.
This sequence has a nice graph. ListPlot[a,PlotRange->All,PlotJoined->True]
MATHEMATICA
Conway[n_Integer?Positive] := Conway[n] =Conway[Conway[n-1]] + Conway[n - Conway[n-1]] Conway[1] = Conway[2]= 1 digits=200 a=Table[1+Abs[Prime[Conway[n]]-Conway[Prime[n]]], {n, 1, digits}]
CROSSREFS
Sequence in context: A114919 A087917 A330334 * A054991 A302918 A316149
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Oct 01 2003
STATUS
approved