login
a(n) = nextprime(9^n) - 9^n.
5

%I #13 Nov 19 2019 08:43:49

%S 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,

%T 62,158,16,122,92,28,20,110,140,70,28,44,20,124,316,38,8,44,136,58,

%U 110,2,148,170,116,170,40,2,182,10,46,254,56,14,8,2,190,148,382,10,56,10

%N a(n) = nextprime(9^n) - 9^n.

%H Daniel Starodubtsev, <a href="/A127796/b127796.txt">Table of n, a(n) for n = 0..1000</a>

%F a(n) = A013632(A001019(n)). - _Michel Marcus_, Nov 18 2019

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

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

%Y Cf. A013632, A001019.

%K nonn

%O 0,2

%A _Artur Jasinski_, Jan 29 2007