A132215 Numbers that are sums of eighth powers of two distinct primes.
6817, 390881, 397186, 5765057, 5771362, 6155426, 214359137, 214365442, 214749506, 220123682, 815730977, 815737282, 816121346, 821495522, 1030089602, 6975757697, 6975764002, 6976148066, 6981522242, 7190116322, 7791488162
Offset: 1
Examples
a(1) = 2^8 + 3^8 = 256 + 6561 = 6817 = 17 * 401.
Programs
-
Mathematica
Select[Sort[ Flatten[Table[Prime[n]^8 + Prime[k]^8, {n, 15}, {k, n - 1}]]], # <= Prime[15^8] &] Total/@Subsets[Prime[Range[10]]^8,{2}]//Sort (* Harvey P. Dale, Jun 27 2017 *)
Comments