A127796 a(n) = nextprime(9^n) - 9^n.

1, 2, 2, 4, 2, 2, 16, 2, 26, 10, 8, 4, 2, 2, 26, 4, 70, 34, 2, 8, 118, 4, 8, 68, 56, 28, 50, 28, 62, 158, 16, 122, 92, 28, 20, 110, 140, 70, 28, 44, 20, 124, 316, 38, 8, 44, 136, 58, 110, 2, 148, 170, 116, 170, 40, 2, 182, 10, 46, 254, 56, 14, 8, 2, 190, 148, 382, 10, 56, 10

Offset

0,2

Links

Daniel Starodubtsev, Table of n, a(n) for n = 0..1000

Formula

a(n) = A013632(A001019(n)). - Michel Marcus, Nov 18 2019

Mathematica

<< NumberTheory`NumberTheoryFunctions` a = {}; Do[k = NextPrime[9^x] - 9^x; AppendTo[a, k], {x, 0, 100}]; a

Crossrefs

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

Cf. A013632, A001019.

Sequence in context: A074130 A320163 A113334 * A131287 A102640 A332581

Adjacent sequences: A127793 A127794 A127795 * A127797 A127798 A127799

Keyword

nonn

Author

Artur Jasinski, Jan 29 2007

Status

approved