%I #18 Sep 08 2022 08:45:41
%S 5,19,41,71,109,271,419,599,701,811,929,1481,1979,2161,2351,2549,2969,
%T 3191,3659,4159,4421,4691,4969,5851,7481,8929,9311,10099,13109,14519,
%U 16001,17029,18089,19181,19739,20879,22051,23869,25121,25759,27059
%N Primes of the form 4*n^2 + 2*n -1.
%C Primes in A125202. - _Klaus Purath_, Dec 09 2020
%H Vincenzo Librandi, <a href="/A155737/b155737.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Table[4n^2+2n-1,{n,0,200}],PrimeQ] (* _Vincenzo Librandi_, Jul 23 2012 *)
%o (Magma) [a: n in [0..100] | IsPrime(a) where a is 4*n^2+2*n-1]; // _Vincenzo Librandi_, Jul 23 2012
%o (PARI) (for (n=0, 100, if (isprime (k=4*n^2+2*n-1), print1 (k, ", ")))); // _Vincenzo Librandi_, Jul 23 2012
%Y Cf. A155736, A155738, A125202.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jan 26 2009
%E Incorrect formula deleted by _N. J. A. Sloane_, Jun 16 2010
|