OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..22
MATHEMATICA
Select[Table[3^n + 1000, {n, 0, 300}], PrimeQ] (* Vincenzo Librandi Jan 02 2014 *)
PROG
(Magma) [a: n in [0..250] | IsPrime(a) where a is 3^n+1000];
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Apr 29 2010
EXTENSIONS
Checked and extended by N. J. A. Sloane, Jun 17 2010
STATUS
approved