A151953 Primes of the form 6*n^2+17.

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

Author

Vladimir Joseph Stephan Orlovsky, Jul 14 2009

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A139843, A128829.

Programs

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
Select[(6 #^2 + 17) & /@ Range[0, 100], PrimeQ[#] &] (* Robert Price, Apr 15 2025 *)