id:A109555 - OEIS Search Results

Search: id:A109555

Displaying 1-1 of 1 results found.

page 1

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

+0
1

2, 809, 821, 827, 857, 881, 1019, 1031, 1049, 1061, 1091, 1151, 1229, 1277, 1289, 1301, 1319, 1427, 1451, 1481, 1487, 1607, 1619, 1667, 1697, 1721, 1787, 1871, 1877, 1931, 1949, 1997, 2027, 2081, 2087, 2111, 2129, 2141, 2237, 2267, 2309, 2339, 2381 (list; graph; listen)

	OFFSET	`0,1`
	MATHEMATICA	`a = Flatten[Table[If[Floor[2Mod[(Prime[n + 1] - Prime[n])PrimePi[n]/n, 8]] == 0, Prime[n], {}], {n, 1, 400}]]`
	CROSSREFS	`Sequence in context: A102969 A167448 A078169 this_sequence A013537 A028485 A034227` `Adjacent sequences: A109552 A109553 A109554 this_sequence A109556 A109557 A109558`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 27 2005`

page 1

Search completed in 0.002 seconds

Last modified December 8 08:31 EST 2009. Contains 170430 sequences.

AT&T Labs Research