login
A132253
Isolated primes congruent to 29 (mod 30).
1
89, 359, 389, 449, 479, 509, 719, 839, 929, 1109, 1259, 1409, 1439, 1499, 1559, 1709, 1889, 1979, 2039, 2069, 2099, 2399, 2459, 2579, 2609, 2699, 2819, 2879, 2909, 2939, 3089, 3209, 3449, 3659, 3719, 3779, 3989, 4079, 4139, 4289, 4349
OFFSET
1,1
MATHEMATICA
Select[Range[29, 4500, 30], PrimeQ[#]&&NoneTrue[#+{2, -2}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 13 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Aug 20 2007
STATUS
approved