|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|