%I A077258
%S A077258 1,4,6888,4920,187117320
%N A077258 Least number which can be represented by the difference between two successive
prime powers of prime numbers (A076707) in just n ways.
%e A077258 1 = 9-8, 4 = 8-4 & 125-121, 6888 = 332929 - 326041 = 744769 - 737881
= 2968729 - 2961841, 4920 = 44521 - 39601 = 63001 - 58081 = 380689
- 375769 = 1515361 - 1510441 and
%e A077258 187117320 = 9725896737769 - 9725709620449 = 21883150711249 - 21882963593929
= 60786363426721 - 60786176309401 = 243145173030769 - 243144985913449
= 2188305808807561 - 2188305621690241.
%t A077258 pp = Sort[ Flatten[ Table[ Prime[n]^Prime[i], {n, 1, PrimePi[ Sqrt[10^16]]},
{i, 1, PrimePi[ Floor[ Log[ Prime[n], 10^16]]]}]]]; l = Length[pp];
b = Sort[ Take[pp, -l + 1] - Take[pp, l - 1]];
%Y A077258 Cf. A053810, A075308, A076707, A077257.
%Y A077258 Sequence in context: A046360 A079232 A137045 this_sequence A058440 A058464
A053951
%Y A077258 Adjacent sequences: A077255 A077256 A077257 this_sequence A077259 A077260
A077261
%K A077258 more,nonn
%O A077258 1,2
%A A077258 Zak Seidov (zakseidov(AT)yahoo.com) and Robert G. Wilson v (rgwv(AT)rgwv.com),
Oct 31 2002
|