|
%I #13 Sep 08 2022 08:45:10
%S 2,4,5,7,10,13,16,17,20,22,23,29,32,34,40,43,44,46,49,55,56,59,62,64,
%T 68,70,71,73,82,86,95,97,101,103,104,109,110,125,127,133,134,148,149,
%U 152,155,160,161,163,164,166,170,175,178,181,185,208,209,218,220
%N Numbers n such that 4*n^2 - 3 is prime.
%H Vincenzo Librandi, <a href="/A083022/b083022.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A028873(n)/2.
%t Select[Range[300], PrimeQ[4 #^2 - 3] &] (* _Vincenzo Librandi_, Oct 05 2012 *)
%o (Magma) [n: n in [1..300] | IsPrime(4*n^2 - 3)]; // _Vincenzo Librandi_, Oct 05 2012
%o (PARI) is(n)=isprime(4*n^2-3) \\ _Charles R Greathouse IV_, May 22 2017
%Y Cf. A028874.
%K nonn,easy
%O 1,1
%A _Hugo Pfoertner_, May 31 2003
|
