login
A356370
(Least prime > p^p) - (greatest prime < p^p), where p = n-th prime.
0
2, 6, 16, 6, 104, 28, 92, 20, 134, 306, 132, 90, 302, 352, 594, 546, 564, 396, 444, 550, 1356, 570, 426, 1206, 404, 1360, 1206, 1284, 3218, 432, 702, 896, 750, 1378, 1116, 1020, 1804, 1608, 2662, 772, 444, 860, 2540, 2850, 1878, 4582, 1054, 2364, 2840, 3534
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
Sequence in context: A009487 A009806 A151708 * A355096 A036046 A080622
KEYWORD
nonn
AUTHOR
Clark Kimberling, Dec 06 2022
STATUS
approved