proposed
approved
proposed
approved
editing
proposed
SelectWith[{k = 5}, Union@ Map[(#[[1]]^k + #[[2]]^k) &, Tuples[Range[10^59], Length@ DeleteCases[PowersRepresentations[#, {2, 5], _?(MemberQ[#, 0}] &)] > 0 &] (* Michael De Vlieger, Sep 09 2022 , after _Harvey P. Dale_ at A004999 *)
proposed
editing
editing
proposed
Samuel S. Wagstaff, Jr., <a href="https://cs.uwaterloo.ca/journals/JIS/VOL25/Wagstaff/wagstaff8.html">Equal Sums of Two Distinct Like Powers</a>, J. Int. Seq., Vol. 25 (2022), Article 22.3.1.
Select[Range[10^5], Length@ DeleteCases[PowersRepresentations[#, 2, 5], _?(MemberQ[#, 0] &)] > 0 &] (* Michael De Vlieger, Sep 09 2022 *)
approved
editing
editing
approved
David A. Corneth, <a href="/A003347/b003347_1.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from T. D. Noe)
reviewed
approved
proposed
reviewed