OFFSET
1,1
MATHEMATICA
Select[Table[3^n + n + 1, {n, 0, 150}], PrimeQ] (* T. D. Noe, Apr 25 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Apr 25 2012
EXTENSIONS
a(7) from Seiichi Manyama, Mar 25 2018
STATUS
approved