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

%I #14 Sep 08 2022 08:45:38

%S 131,97,71,53,43,41,47,61,83,113,151,197,251,313,383,461,547,641,743,

%T 853,971,1097,1231,1373,1523,1847,2203,2393,2591,2797,3011,3463,3701,

%U 3947,4201,4463,4733,5011,5297,5591,6203,6521,7523,7873,8231,8597,8971

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

%H Muniru A Asiru, <a href="/A145096/b145096.txt">Table of n, a(n) for n = 1..1000</a>

%p 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

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

%o (Magma) [ a: n in [0..900] | IsPrime(a) where a is 4*n^2-38*n+131] // _Vincenzo Librandi_, Nov 25 2010

%o (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

%K nonn

%O 1,1

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

%E More terms from _Vincenzo Librandi_, Apr 28 2010