login
A151953
Primes of the form 6*n^2+17.
1
17, 23, 41, 71, 113, 167, 233, 311, 401, 503, 617, 743, 881, 1031, 1193, 1367, 1553, 2417, 2663, 3191, 3767, 4073, 4391, 4721, 5417, 5783, 6551, 7793, 8231, 8681, 10103, 10601, 11633, 12713, 13841, 14423, 15017, 16871, 20201, 20903, 21617, 22343
OFFSET
1,1
LINKS
MAPLE
select(isprime, [seq(6*n^2+17, n=0..1000)]); # Robert Israel, Feb 06 2018
MATHEMATICA
f[a_]:=6*a^2+17; lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, f[n]]], {n, 0, 4!}]; lst
CROSSREFS
Sequence in context: A243137 A256397 A139843 * A102874 A086532 A159044
KEYWORD
nonn
AUTHOR
STATUS
approved