id:A087741 - OEIS Search Results

Search: id:A087741

Displaying 1-1 of 1 results found.

page 1

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

+0
1

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; listen)

	OFFSET	`1,1`
	COMMENT	`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 this_sequence A054991 A047071 A124287` `Adjacent sequences: A087738 A087739 A087740 this_sequence A087742 A087743 A087744`
	KEYWORD	`nonn,easy`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 01 2003`

page 1

Search completed in 0.002 seconds

Last modified July 26 23:19 EDT 2008. Contains 142293 sequences.

AT&T Labs Research