|
|
A210504
|
|
Numbers n for which 2*n+5, 4*n+5, 6*n+5, and 8*n+5 are primes.
|
|
2
|
|
|
0, 3, 6, 21, 24, 48, 63, 126, 213, 237, 297, 318, 402, 609, 657, 714, 783, 864, 948, 1053, 1287, 1347, 1449, 1581, 1683, 2166, 2184, 2358, 2457, 2463, 2481, 2736, 2793, 2898, 2919, 3024, 3723, 3786, 3909, 4017, 4479, 4584, 4602, 4857, 5169, 5634, 5733, 7101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
All terms are multiple of 3.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[0, 10000], PrimeQ[2*# + 5] && PrimeQ[4*# + 5] && PrimeQ[6*# + 5] && PrimeQ[ 8*# + 5] &] (* T. D. Noe, Jan 25 2013 *)
Select[Range[0, 8000], AllTrue[#{2, 4, 6, 8}+5, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 14 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|