OFFSET
1,1
COMMENTS
The next term is too big to display. Corresponding n are given in A058037.
MATHEMATICA
Select[Table[3^k - k, {k, 2, 200, 2}], PrimeQ] (* Bruno Berselli, Apr 07 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alex Ratushnyak, Apr 06 2013
STATUS
approved