login
A233318
Primes p such that p+6, p+12 and p+18 are composite.
1
2, 3, 197, 241, 283, 317, 359, 463, 499, 521, 547, 577, 617, 719, 773, 787, 829, 883, 887, 937, 967, 983, 1061, 1093, 1109, 1129, 1171, 1193, 1229, 1249, 1319, 1327, 1373, 1399, 1451, 1489, 1523, 1627, 1637, 1667, 1669, 1699, 1733, 1787, 1801, 1823, 1831, 1847
OFFSET
1,1
COMMENTS
Subsequence of A233314 and A140555: a(3) = 197 = A233314(7) = A140555(19).
MATHEMATICA
Select[Prime[Range[400]], ! PrimeQ[# + 6] && ! PrimeQ[# + 12] && ! PrimeQ[# + 18] &] (* T. D. Noe, Dec 10 2013 *)
Select[Prime[Range[400]], AllTrue[#+{6, 12, 18}, CompositeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 15 2019 *)
CROSSREFS
Sequence in context: A246488 A106715 A106817 * A231387 A160759 A191835
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 07 2013
STATUS
approved