A127798 Nextprime(12^n)-12^n.

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

Author

Artur Jasinski, Jan 29 2007

Keywords

• nonn

Crossrefs

Cf. A013597, A013598, A013602, A013599, A013600, A013601, A127796, A033873, A127795, A127796, A127797, A127799.

Programs

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 *)