A087741 a(n) = 1+Abs[A000040[A004001[n]]-A004001[A000040[n]]].

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

Author

Roger L. Bagula, Oct 01 2003

Keywords

• nonn
• easy

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]

Crossrefs

Cf. A004001, A087740.

Programs

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}]