|
|
A086301
|
|
Numbers n such that 1 +/- 2n + 3n^2 are primes.
|
|
1
|
|
|
12, 18, 90, 120, 216, 276, 282, 396, 408, 618, 684, 792, 810, 948, 978, 1122, 1200, 1236, 1404, 1560, 1632, 1716, 1728, 1734, 1806, 1836, 2202, 2226, 2268, 2418, 2430, 2460, 2490, 2556, 2826, 2856, 3018, 3054, 3084, 3168, 3186, 3258, 3282, 3384, 3456
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[4000], AllTrue[1+3#^2+{2#, -2#}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 06 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|