OFFSET
0,3
MATHEMATICA
<< NumberTheory`NumberTheoryFunctions` a = {}; Do[k = NextPrime[12^x] - 12^x; AppendTo[a, k], {x, 0, 100}]; a
f[n_]:=Module[{c=12^n}, NextPrime[c]-c]; f/@Range[0, 100] (* Harvey P. Dale, Mar 19 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 29 2007
STATUS
approved