A145096 Primes of the form 4*k^2 - 38*k + 131.

131, 97, 71, 53, 43, 41, 47, 61, 83, 113, 151, 197, 251, 313, 383, 461, 547, 641, 743, 853, 971, 1097, 1231, 1373, 1523, 1847, 2203, 2393, 2591, 2797, 3011, 3463, 3701, 3947, 4201, 4463, 4733, 5011, 5297, 5591, 6203, 6521, 7523, 7873, 8231, 8597, 8971

Offset: 1

Author

Bobby Kramer (panthar1(AT)gmail.com), Oct 01 2008, Oct 02 2008

Keywords

• nonn

Links

• Muniru A Asiru, Table of n, a(n) for n = 1..1000

Programs

GAP

o := [];; for k in [0..100] do if IsPrime(4*k^2 - 38*k + 131) then Add(o,4*k^2 - 38*k + 131); fi; od; o; # Muniru A Asiru, Jan 23 2018

Magma

[ a: n in [0..900] | IsPrime(a) where a is 4*n^2-38*n+131]; // Vincenzo Librandi, Nov 25 2010

Maple

for k from 0 to 100 do if isprime(4*k^2 - 38*k + 131) then print(4*k^2 - 38*k + 131); fi; od; # Muniru A Asiru, Jan 23 2018

Mathematica

Select[Table[4n^2-38n+131,{n,0,60}],PrimeQ] (* Harvey P. Dale, Jun 10 2013 *)

Extensions

More terms from Vincenzo Librandi, Apr 28 2010