OFFSET
1,1
MATHEMATICA
a = Delete[Union[Flatten[Table[If [PrimeQ[6^n + 23] == True, 6^n + 23, 0], {n, 1, 1000}]]], 1]
PROG
(Magma) [ a: n in [0..250] | IsPrime(a) where a is 6^n+23 ]; // Vincenzo Librandi, Nov 18 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 05 2005
EXTENSIONS
Last term corrected by D. S. McNeil and N. J. A. Sloane, Aug 17 2010
STATUS
approved