OFFSET
1,1
FORMULA
a(n) = 2^A057196(n) + 9. - Elmo R. Oliveira, Nov 08 2023
MATHEMATICA
a = Delete[Union[Flatten[Table[If [PrimeQ[2^n + 9] == True, 2^ n + 9, 0], {n, 1, 400}]]], 1]
Select[2^Range[0, 100]+9, PrimeQ] (* Harvey P. Dale, Mar 11 2023 *)
PROG
(Magma) [a: n in [0..250] | IsPrime(a) where a is 2^n+9]; // Vincenzo Librandi, Jan 26 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 02 2005
STATUS
approved