login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; internal format)
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

Cf. A004001, A087740.

Sequence in context: A049615 A114919 A087917 * A054991 A047071 A124287

Adjacent sequences:  A087738 A087739 A087740 * A087742 A087743 A087744

KEYWORD

nonn,easy

AUTHOR

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 01 2003

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 15 23:53 EST 2012. Contains 205860 sequences.