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,3

Links

Table of n, a(n) for n=0..70.

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

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

Sequence in context: A133888 A244587 A111186 * A053671 A028278 A095943

Adjacent sequences: A127795 A127796 A127797 * A127799 A127800 A127801

Keyword

nonn

Author

Artur Jasinski, Jan 29 2007

Status

approved