id:A109565 - OEIS Search Results

Search: id:A109565

Displaying 1-1 of 1 results found.

page 1

a(n) = If[Floor[2*Mod[(Prime[n + 1] - Prime[n])*PrimePi[n]/n, 8]] == 11, Prime[n]]

+0
1

5591, 8467, 9551, 9973, 12853, 14107, 15823, 19333, 20809, 22573, 25261, 33247, 34981 (list; graph; listen)

	OFFSET	`0,1`
	MATHEMATICA	`a = Flatten[Table[If[Floor[2Mod[(Prime[n + 1] - Prime[n])PrimePi[n]/n, 8]] == 11, Prime[n], {}], {n, 1, 4000}]]`
	CROSSREFS	`Cf. A001359.` `Sequence in context: A043512 A167281 A065698 this_sequence A126784 A071813 A074242` `Adjacent sequences: A109562 A109563 A109564 this_sequence A109566 A109567 A109568`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 27 2005`

page 1

Search completed in 0.002 seconds

Last modified November 29 12:46 EST 2009. Contains 167659 sequences.