A087742 - OEIS

This site is supported by donations to The OEIS Foundation.

A087742

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

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; refs; listen; history; internal format)

	OFFSET	`1,1`
	COMMENTS	`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.` `Sequence in context: A069010 A087048 A109700 * A072530 A184341 A090455` `Adjacent sequences: A087739 A087740 A087741 * A087743 A087744 A087745`
	KEYWORD	`nonn`
	AUTHOR	`Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 01 2003`
	EXTENSIONS	`Edited by N. J. A. Sloane (njas(AT)research.att.com), Nov 08 2005`

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

Last modified February 16 14:37 EST 2012. Contains 205930 sequences.