OFFSET
1,1
COMMENTS
LINKS
David Consiglio, Jr., Table of n, a(n) for n = 1..1000
EXAMPLE
13832 is in this sequence because 13832 = 2^3 + 24^3 = 18^3 + 20^3.
MATHEMATICA
Select[Range@70000, Length@Select[PowersRepresentations[#, 2, 3], FreeQ[#, 0]&]==2&] (* Giorgos Kalogeropoulos, Apr 26 2021 *)
PROG
(Python)
from itertools import combinations_with_replacement as cwr
from collections import defaultdict
keep = defaultdict(lambda: 0)
power_terms = [x**3 for x in range(1, 1000)]#n
for pos in cwr(power_terms, 2):#m
tot = sum(pos)
keep[tot] += 1
rets = sorted([k for k, v in keep.items() if v == 2])#s
for x in range(len(rets)):
print(rets[x])
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
David Consiglio, Jr., Apr 26 2021
STATUS
approved