OFFSET
1,3
COMMENTS
EXAMPLE
a(5) = 9 because the 5th prime is 11, and the smallest prime of the form (k+1)^11 - k^11 is 6^11 - 5^11 = 313968931, which has 9 digits
MATHEMATICA
Table[p = Prime[n]; k = 1; While[q = (k + 1)^p - k^p; ! PrimeQ[q], k++]; Length[IntegerDigits[q]], {n, 60}] (* T. D. Noe, Feb 12 2013 *)
PROG
(PARI) a222120(n) = {local(p, k); p=prime(n); while(!isprime((k+1)^p - k^p), k=k+1); ceil(log((k+1)^p - k^p)/log(10))} \\ Michael B. Porter, Feb 12 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Pletser, Feb 07 2013
STATUS
approved