OFFSET
1,1
EXAMPLE
For n = 6, p(9373678643933) = 302875106592241 < 13^13 < 302875106592269 = p(9373678643934), and 302875106592269 - 302875106592241 = 28.
MATHEMATICA
z = 60; p[n_] := Prime[n];
u = Table[NextPrime[p[n]^p[n]], {n, 1, z}];
v = Table[NextPrime[p[n]^p[n], -1], {n, 1, z}];
u - v
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 06 2022
STATUS
approved