id:A087742 - OEIS Search Results

Search: id:A087742

Displaying 1-1 of 1 results found.

page 1

a(n) = 1+Abs[Prime[A005185[n]]-A005185[Prime[n]]].

+0
1

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 (list; graph; listen)

	OFFSET	`1,1`
	COMMENT	`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	`Cf. A000040, A005185.` `Adjacent sequences: A087739 A087740 A087741 this_sequence A087743 A087744 A087745` `Sequence in context: A069010 A087048 A109700 this_sequence A072530 A090455 A086288`
	KEYWORD	`nonn`
	AUTHOR	`Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 01 2003`
	EXTENSIONS	`Edited by njas, Nov 08 2005`

page 1

Search completed in 0.002 seconds

Last modified October 15 09:18 EDT 2008. Contains 145015 sequences.

AT&T Labs Research