OFFSET
1,1
COMMENTS
Generated by the n of A109387. The number of decimal digits in this sequence grows as 1, 2, 5, 25, 54, 102, 166, 194,...
The large terms beyond a(6) are not shown.
MATHEMATICA
f[n_]:=3^n-n^3; lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, f[n]]], {n, 4*5!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 24 2009
EXTENSIONS
Edited by R. J. Mathar, Jul 26 2009
STATUS
approved