OFFSET
1,1
COMMENTS
a(31) > 29391. - J.W.L. (Jan) Eerland, Dec 20 2021
LINKS
S. Harvey, Carol and Kynea Primes.
MATHEMATICA
DeleteCases[ParallelTable[If[PrimeQ[(273*2^n+1)^2-2], n, a], {n, 0, 21816}], a] (* J.W.L. (Jan) Eerland, Dec 20 2021 *)
PROG
(PARI) is(n)=ispseudoprime((273*2^n+1)^2-2) \\ Charles R Greathouse IV, Feb 19 2016
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ray Chandler, Nov 21 2004
EXTENSIONS
a(24)-a(30) from J.W.L. (Jan) Eerland, Dec 20 2021
a(31)-a(33) from Michael S. Branicky, Mar 21 2024
STATUS
approved