|
%I #8 Sep 08 2022 08:45:40
%S 13,157,461,673,1217,1549,2333,4993,6337,7069,7841,11329,12301,13313,
%T 17761,18973,21517,25633,30109,36637,41953,45697,47629,51613,62273,
%U 69149,78877,81409,97441,105997,108929,114913,137117,140449,143821
%N Primes of the form 20n^2+32n+13.
%H Vincenzo Librandi, <a href="/A154414/b154414.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Table[20n^2+32n+13,{n,0,6001}],PrimeQ] (* _Vincenzo Librandi_, Jul 23 2012 *)
%o (Magma) [a: n in [0..100] | IsPrime(a) where a is 20*n^2+32*n+13]; // _Vincenzo Librandi_, Jul 23 2012
%o (PARI) {for(n=0, 100, if(isprime(k=20*n^2+32*n+13), print1(k, ", ")))}; _Vincenzo Librandi_, Jul 23 2012
%Y Cf. A017365.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jan 09 2009
|
