|
|
A145742
|
|
Composite numbers n such that all 10 numbers n+4*m^2 for m=1,2,...,10 are prime.
|
|
2
|
|
|
143473, 2821813, 3171877, 27439003, 95771533, 107832187, 174499873, 315915517, 438561313, 761271373, 1010315923, 1083101167, 1247119687, 1272171217, 1494582637, 1540272427, 2760699643, 3205014607, 3615583147, 3636010807
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
There is no further term up to 2*10^8.
|
|
LINKS
|
|
|
EXAMPLE
|
174499873 is composite and all 10 numbers 174499873+4m^2 for m=1,2,...,10 are prime.
|
|
MATHEMATICA
|
Select[Range[140001, 364*10^7, 2], CompositeQ[#]&&AllTrue[#+{4, 16, 36, 64, 100, 144, 196, 256, 324, 400}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jun 12 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|