OFFSET
1,1
COMMENTS
This is to 4th powers as A120398 is to cubes.
MATHEMATICA
Select[Sort[ Flatten[Table[Prime[n]^4 + Prime[k]^4, {n, 15}, {k, n - 1}]]], # <= Prime[15^4] &]
Total/@Subsets[Prime[Range[10]]^4, {2}]//Union (* Harvey P. Dale, Oct 20 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Jul 24 2007
STATUS
approved