OFFSET
1,1
MATHEMATICA
Select[Table[3^n+100^n, {n, 0, 100}], PrimeQ] (* Harvey P. Dale, Apr 04 2011 *)
PROG
(Magma) [ a: n in [0..1500] | IsPrime(a) where a is 3^n+100^n ]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Apr 29 2010
STATUS
approved