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] &]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Jul 24 2007
STATUS
approved