login
A204764
Primes followed by a gap of 90.
3
404851, 576791, 818723, 843911, 1053863, 1138273, 1294849, 1467989, 1876859, 1964987, 1966697, 1985077, 2030789, 2214383, 2220553, 2423249, 2483291, 2527823, 2542237, 2638087, 2680141, 2856683, 2910329, 3106487, 3112147, 3112519, 3175169, 3279037, 3398761
OFFSET
1,1
MATHEMATICA
Transpose[Select[Partition[Prime[Range[250000]], 2, 1], Last[#] - First[#] == 90&]][[1]] (* Harvey P. Dale, Jul 31 2012 *)
PROG
(PARI) p=0; g=90; for(c=1, 100, while(g+p!=p=nextprime(p+1), ); print1(", "p-g)) \\
CROSSREFS
Sequence in context: A254025 A254018 A254892 * A252626 A237510 A234375
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 18 2012
STATUS
approved