OFFSET
0,2
MATHEMATICA
<< NumberTheory`NumberTheoryFunctions` a = {}; Do[k = NextPrime[11^x] - 11^x; AppendTo[a, k], {x, 0, 100}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 29 2007
STATUS
approved