id:A109564 - OEIS Search Results

Search: id:A109564

Displaying 1-1 of 1 results found.

page 1

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

+0
1

1669, 2477, 2971, 3137, 3271, 4297, 4831, 5119, 5351, 5749, 6491, 6917, 7253, 7759, 7963, 8389, 8893, 10799, 11743, 12163, 17257 (list; graph; listen)

	OFFSET	`0,1`
	MATHEMATICA	`a = Flatten[Table[If[Floor[2Mod[(Prime[n + 1] - Prime[n])PrimePi[n]/n, 8]] == 10, Prime[n], {}], {n, 1, 2000}]]`
	CROSSREFS	`Cf. A001359.` `Sequence in context: A054812 A020392 A098974 this_sequence A093787 A060095 A069331` `Adjacent sequences: A109561 A109562 A109563 this_sequence A109565 A109566 A109567`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 27 2005`

page 1

Search completed in 0.002 seconds

Last modified July 26 13:41 EDT 2008. Contains 142293 sequences.

AT&T Labs Research