OFFSET
1,1
COMMENTS
Also primes of the form 4^n+7 (in this case, the associated n are in A217349). - Bruno Berselli, Oct 03 2012
FORMULA
a(n) = 2^A057195(n) + 7. - Elmo R. Oliveira, Nov 08 2023
MATHEMATICA
a = Delete[Union[Flatten[Table[If [PrimeQ[2^n + 7] == True, 2^ n + 7, 0], {n, 1, 400}]]], 1]
PROG
(Magma) [a: n in [0..100 by 2] | IsPrime(a) where a is 2^n+7]; // Vincenzo Librandi, Jan 26 2011
(PARI) list(lim)=my(v=List(), t); for(n=1, logint(lim\1-7, 4), if(ispseudoprime(t=4^n+7), listput(v, t))); Vec(v) \\ Charles R Greathouse IV, Nov 17 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 02 2005
STATUS
approved