login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

A025406
Numbers that are the sum of 4 positive cubes in 2 or more ways.
8
219, 252, 259, 278, 315, 376, 467, 522, 594, 702, 758, 763, 765, 802, 809, 819, 856, 864, 945, 980, 1010, 1017, 1036, 1043, 1073, 1078, 1081, 1118, 1134, 1160, 1225, 1251, 1352, 1367, 1368, 1374, 1375, 1393, 1397, 1423, 1430, 1458, 1460, 1465, 1467, 1484
OFFSET
1,1
LINKS
FORMULA
{n: A025457(n) >= 2}. - R. J. Mathar, Jun 15 2018
MAPLE
N:= 2000: # for terms <= N
S2:= {}: S1:= {}:
for x from 1 while x^3 < N do
for y from 1 to x while x^3 + y^3 < N do
for z from 1 to y while x^3 + y^3 + z^3 < N do
for w from 1 to z do
v:= x^3 + y^3 + z^3 + w^3;
if v > N then break fi;
if member(v, S1) then S2:= S2 union {v}
else S1:= S1 union {v}
fi
od od od od:
sort(convert(S2, list)); # Robert Israel, Feb 24 2021
KEYWORD
nonn
STATUS
approved