OFFSET
1,1
FORMULA
a(n) = 2^A102634(n) + 13. - R. J. Mathar, Feb 22 2009
MATHEMATICA
a = Delete[Union[Flatten[Table[If [PrimeQ[2^n + 13] == True, 2^n + 13, 0], {n, 1, 400}]]], 1]
PROG
(Magma) [ a: n in [0..350] | IsPrime(a) where a is 2^n+13 ] // Vincenzo Librandi, Nov 16 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 02 2005
EXTENSIONS
Definition corrected by Edwin Dyke (ed.dyke(AT)btinternet.com), Feb 19 2009
STATUS
approved