This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
2562624 is a term because 2562624 = 7^3 + 35^3 + 135^3 = 7^3 + 63^3 + 131^3 = 11^3 + 99^3 + 115^3 = 16^3 + 45^3 + 134^3 = 29^3 + 102^3 + 112^3 = 35^3 + 59^3 + 131^3 = 50^3 + 84^3 + 121^3 = 68^3 + 71^3 + 122^3.
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)]
for pos in cwr(power_terms, 3):
tot = sum(pos)
keep[tot] += 1
rets = sorted([k for k, v in keep.items() if v >= 8])
for x in range(len(rets)):
print(rets[x])
42120 is a term because 42120 = 1^3 + 19^3 + 22^3 + 27^3 = 2^3 + 3^3 + 13^3 + 33^3 = 2^3 + 6^3 + 17^3 + 32^3 = 3^3 + 3^3 + 20^3 + 31^3 = 3^3 + 17^3 + 20^3 + 29^3 = 3^3 + 13^3 + 14^3 + 32^3 = 6^3 + 15^3 + 16^3 + 31^3 = 7^3 + 17^3 + 23^3 + 27^3 = 11^3 + 13^3 + 21^3 + 29^3.
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)]
for pos in cwr(power_terms, 4):
tot = sum(pos)
keep[tot] += 1
rets = sorted([k for k, v in keep.items() if v >= 9])
for x in range(len(rets)):
print(rets[x])
105760443698 is a term because 105760443698 = 7^4 + 476^4 + 483^4 = 51^4 + 452^4 + 503^4 = 76^4 + 437^4 + 513^4 = 107^4 + 417^4 + 524^4 = 133^4 + 399^4 + 532^4 = 199^4 + 348^4 + 547^4 = 212^4 + 337^4 + 549^4 = 228^4 + 323^4 + 551^4 = 252^4 + 301^4 + 553^4.
from itertools import combinations_with_replacement as cwr
from collections import defaultdict
keep = defaultdict(lambda: 0)
power_terms = [x**4 for x in range(1, 1000)]
for pos in cwr(power_terms, 3):
tot = sum(pos)
keep[tot] += 1
rets = sorted([k for k, v in keep.items() if v >= 9])
for x in range(len(rets)):
print(rets[x])
14926248 is a term because 14926248 = 2^3 + 33^3 + 245^3 = 11^3 + 185^3 + 203^3 = 14^3 + 32^3 + 245^3 = 50^3 + 113^3 + 236^3 = 71^3 + 89^3 + 239^3 = 74^3 + 189^3 + 196^3 = 89^3 + 185^3 + 197^3 = 98^3 + 148^3 + 219^3 = 105^3 + 149^3 + 217^3.
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)]
for pos in cwr(power_terms, 3):
tot = sum(pos)
keep[tot] += 1
rets = sorted([k for k, v in keep.items() if v == 9])
for x in range(len(rets)):
print(rets[x])
34012224 is a term because 34012224 = 35^3 + 215^3 + 287^3 = 38^3 + 152^3 + 311^3 = 40^3 + 113^3 + 318^3 = 44^3 + 245^3 + 266^3 = 71^3 + 113^3 + 317^3 = 99^3 + 191^3 + 295^3 = 101^3 + 226^3 + 276^3 = 117^3 + 185^3 + 295^3 = 161^3 + 215^3 + 269^3 = 172^3 + 213^3 + 266^3.
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)]
for pos in cwr(power_terms, 3):
tot = sum(pos)
keep[tot] += 1
rets = sorted([k for k, v in keep.items() if v >= 10])
for x in range(len(rets)):
print(rets[x])
a(1) = 36 = 1^3 + 2^3 + 3^3. a(2) = 1009 = 1^3 + 2^3 + 10^3 = 4^3 + 6^3 + 9^3. a(3) = 12384 = 1^3 + 6^3 + 23^3 = 2^3 + 12^3 + 22^3 = 15^3 + 16^3 + 17^3.
Monitor[Do[k=1;While[Length@Union@Flatten[p=PowersRepresentations[k,3,3]]!=n*3||Length@p!=n||MemberQ[Flatten@p,0],k++];Print@k,{n,10}],k] (* Giorgos Kalogeropoulos, Sep 03 2021 *)
Comments