|
Search: id:A076706
|
|
|
| A076706 |
|
Primes which are the difference between two successive prime powers of prime numbers. |
|
+0
1
|
|
| 2, 3, 5, 17, 41, 139, 199, 271, 1217, 3617, 4001, 4241, 117017, 746153, 137542193
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
3 = 128 - 125 = 2^7 - 5^3; 4241 = 528529 - 524288 = 727^2 - 2^19.
|
|
MATHEMATICA
|
pp = Sort[ Flatten[ Table[ Prime[n]^Prime[i], {n, 1, PrimePi[ Sqrt[10^16]]}, {i, 1, PrimePi[ Floor[ Log[ Prime[n], 10^16]]]}]]]; a = {}; Do[ If[ PrimeQ[ pp[[n + 1]] - pp[[n]]], a = Append[a, pp[[n + 1]] - pp[[n]]]], {n, 1, Length[pp] - 1}]; Union[a]
|
|
CROSSREFS
|
Cf. A053810, A075308.
Sequence in context: A077498 A118958 A053182 this_sequence A019350 A103074 A082979
Adjacent sequences: A076703 A076704 A076705 this_sequence A076707 A076708 A076709
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Oct 26 2002
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 31 2002
|
|
|
Search completed in 0.002 seconds
|
