login
A127798
Nextprime(12^n)-12^n.
4
1, 1, 5, 5, 7, 7, 7, 25, 5, 31, 49, 31, 35, 25, 23, 11, 17, 29, 47, 103, 7, 5, 7, 23, 133, 19, 5, 13, 7, 215, 89, 5, 53, 89, 17, 35, 257, 29, 19, 193, 13, 121, 79, 71, 53, 61, 287, 61, 107, 125, 5, 203, 23, 119, 89, 5, 95, 61, 7, 29, 191, 211, 119, 31, 377, 37, 49, 89, 161, 5, 785
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 *)
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 29 2007
STATUS
approved