id:A109556 - OEIS Search Results

Search: id:A109556

Displaying 1-1 of 1 results found.

page 1

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

+0
1

3, 5, 11, 17, 79, 97, 103, 109, 127, 163, 193, 223, 229, 277, 307, 313, 349, 379, 397, 439, 457, 463, 487, 499, 613, 643, 677, 727, 733, 751, 941, 947, 971, 977, 991, 1013, 1033, 1063, 1097, 1103, 1117, 1123, 1181, 1187, 1217, 1223, 1231, 1283, 1291, 1321 (list; graph; listen)

	OFFSET	`0,1`
	MATHEMATICA	`a = Flatten[Table[If[Floor[2Mod[(Prime[n + 1] - Prime[n])PrimePi[n]/n, 8]] == 2, Prime[n], {}], {n, 1, 400}]]`
	CROSSREFS	`Cf. A001359.` `Adjacent sequences: A109553 A109554 A109555 this_sequence A109557 A109558 A109559` `Sequence in context: A101781 A101783 A078883 this_sequence A090952 A128949 A057652`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 27 2005`

page 1

Search completed in 0.002 seconds

Last modified October 13 20:18 EDT 2008. Contains 145016 sequences.

AT&T Labs Research