A233318 Primes p such that p+6, p+12 and p+18 are composite.
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
Keywords
Links
- Zak Seidov, Table of n, a(n) for n = 1..1000
Programs
-
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 *)
Comments