|
%I #21 Mar 22 2024 15:42:27
%S 6,8,15,19,30,33,50,54,61,85,190,225,270,295,323,456,616,778,1523,
%T 2921,3264,6780,8463,10915,11390,13304,13860,16625,17851,21816,33205,
%U 35170,35673
%N Numbers k such that (273*2^k+1)^2-2 is prime.
%C a(31) > 29391. - _J.W.L. (Jan) Eerland_, Dec 20 2021
%H S. Harvey, <a href="http://harvey563.tripod.com/Carol_Kynea.txt">Carol and Kynea Primes</a>.
%t DeleteCases[ParallelTable[If[PrimeQ[(273*2^n+1)^2-2],n,a],{n,0,21816}],a] (* _J.W.L. (Jan) Eerland_, Dec 20 2021 *)
%o (PARI) is(n)=ispseudoprime((273*2^n+1)^2-2) \\ _Charles R Greathouse IV_, Feb 19 2016
%K nonn,more
%O 1,1
%A _Ray Chandler_, Nov 21 2004
%E a(24)-a(30) from _J.W.L. (Jan) Eerland_, Dec 20 2021
%E a(31)-a(33) from _Michael S. Branicky_, Mar 21 2024
|
