|
%I #8 Dec 15 2022 14:00:10
%S 2,6,16,6,104,28,92,20,134,306,132,90,302,352,594,546,564,396,444,550,
%T 1356,570,426,1206,404,1360,1206,1284,3218,432,702,896,750,1378,1116,
%U 1020,1804,1608,2662,772,444,860,2540,2850,1878,4582,1054,2364,2840,3534
%N (Least prime > p^p) - (greatest prime < p^p), where p = n-th prime.
%e For n = 6, p(9373678643933) = 302875106592241 < 13^13 < 302875106592269 = p(9373678643934), and 302875106592269 - 302875106592241 = 28.
%t z = 60; p[n_] := Prime[n];
%t u = Table[NextPrime[p[n]^p[n]], {n, 1, z}];
%t v = Table[NextPrime[p[n]^p[n], -1], {n, 1, z}];
%t u - v
%Y Cf. A000040, A051674.
%K nonn
%O 1,1
%A _Clark Kimberling_, Dec 06 2022
|
