OFFSET
1,1
COMMENTS
This is to 7th powers as A130555 is to 6th powers, A130292 is to fifth powers, A130873 is to 4th powers and A120398 is to cubes. These can never be prime, as the polynomial x^7 + y^7 factors over Z. Note however that A132215, which is the analog for eighth powers, can be prime, as seen also in A132216.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 2^7 + 3^7 = 2315 = 5 * 463.
MAPLE
P:= select(isprime, [2, seq(i, i=3..100, 2)]): nP:= nops(P):
N:= 2^7 + P[-1]^7:
sort(convert(select(`<=`, {seq(seq(P[i]^7+P[j]^7, j=i+1..nP), i=1..nP-1)}, N), list)); # Robert Israel, Jul 01 2024
MATHEMATICA
Select[Sort[ Flatten[Table[Prime[n]^7 + Prime[k]^7, {n, 15}, {k, n - 1}]]], # <= Prime[15^7] &]
Union[Total/@(Subsets[Prime[Range[10]], {2}]^7)] (* Harvey P. Dale, Jan 03 2012 *)
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Aug 13 2007
STATUS
approved