A252670 a(n) is exponential digital index of prime(n).
22, 0, 11, 4, 2, 0, 0, 2, 1, 0, 0, 2, 2, 0, 0, 0, 0, 2, 0, 2, 2, 0, 0, 0, 0, 2, 0, 0, 2, 1, 2, 1, 0, 0, 0, 0, 0, 2, 0, 0, 1, 2, 0, 0, 0, 0, 2, 0, 0, 1, 0, 0, 3, 1, 0, 0, 0, 2, 0, 0, 0, 0, 2, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 1, 0, 1, 0, 0, 5, 0, 2, 0, 0, 1, 0, 0, 0
Offset: 1
Programs
-
PARI
s(k, pp) = my(sd = sumdigits(pp^k)); sd/2^valuation(sd, 2); f(n, pp) = {my(p = prime(n), k = 1); while ((sk=s(k, pp)) % p, k++); if (sk == p, k, 0); } a(n) = {my(pp=prime(n), j=3); while (f(j,pp), j++); j - 3;} \\ Michel Marcus, Dec 09 2018
Formula
Extensions
More terms from Michel Marcus, Dec 09 2018
Comments