|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|