OFFSET
1,1
MATHEMATICA
Select[3*2^Range[4, 100]-25 , PrimeQ] (* Amiram Eldar, Nov 15 2018 *)
PROG
(PARI) for(n=0, 20, if(ispseudoprime(p=3*2^n-25), print1(p, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Gilbert Mozzo, Nov 07 2018
EXTENSIONS
More terms from Amiram Eldar, Nov 15 2018
STATUS
approved