A003327 -id:A003327 - cp's OEIS frontend

A003388 Sum of 10 nonzero 8th powers.

10, 265, 520, 775, 1030, 1285, 1540, 1795, 2050, 2305, 2560, 6570, 6825, 7080, 7335, 7590, 7845, 8100, 8355, 8610, 8865, 13130, 13385, 13640, 13895, 14150, 14405, 14660, 14915, 15170, 19690, 19945, 20200, 20455, 20710, 20965, 21220, 21475, 26250, 26505

Offset: 1

N. J. A. Sloane

As the order of addition doesn't matter we can assume terms are in nondecreasing order. - David A. Corneth, Aug 01 2020

			From _David A. Corneth_, Aug 01 2020: (Start)
3431590 is in the sequence as 3431590 = 1^8 + 1^8 + 1^8 + 1^8 + 1^8 + 2^8 + 3^8 + 4^8 + 6^8 + 6^8.
6276517 is in the sequence as 6276517 = 1^8 + 1^8 + 2^8 + 4^8 + 5^8 + 5^8 + 5^8 + 6^8 + 6^8 + 6^8.
8045029 is in the sequence as 8045029 = 1^8 + 2^8 + 3^8 + 3^8 + 4^8 + 4^8 + 4^8 + 5^8 + 6^8 + 7^8. (End)

David A. Corneth, Table of n, a(n) for n = 1..10000

A###### (x, y): Numbers that are the form of x nonzero y-th powers.

Cf. A000404 (2, 2), A000408 (3, 2), A000414 (4, 2), A003072 (3, 3), A003325 (3, 2), A003327 (4, 3), A003328 (5, 3), A003329 (6, 3), A003330 (7, 3), A003331 (8, 3), A003332 (9, 3), A003333 (10, 3), A003334 (11, 3), A003335 (12, 3), A003336 (2, 4), A003337 (3, 4), A003338 (4, 4), A003339 (5, 4), A003340 (6, 4), A003341 (7, 4), A003342 (8, 4), A003343 (9, 4), A003344 (10, 4), A003345 (11, 4), A003346 (12, 4), A003347 (2, 5), A003348 (3, 5), A003349 (4, 5), A003350 (5, 5), A003351 (6, 5), A003352 (7, 5), A003353 (8, 5), A003354 (9, 5), A003355 (10, 5), A003356 (11, 5), A003357 (12, 5), A003358 (2, 6), A003359 (3, 6), A003360 (4, 6), A003361 (5, 6), A003362 (6, 6), A003363 (7, 6), A003364 (8, 6), A003365 (9, 6), A003366 (10, 6), A003367 (11, 6), A003368 (12, 6), A003369 (2, 7), A003370 (3, 7), A003371 (4, 7), A003372 (5, 7), A003373 (6, 7), A003374 (7, 7), A003375 (8, 7), A003376 (9, 7), A003377 (10, 7), A003378 (11, 7), A003379 (12, 7), A003380 (2, 8), A003381 (3, 8), A003382 (4, 8), A003383 (5, 8), A003384 (6, 8), A003385 (7, 8), A003387 (9, 8), A003388 (10, 8), A003389 (11, 8), A003390 (12, 8), A003391 (2, 9), A003392 (3, 9), A003393 (4, 9), A003394 (5, 9), A003395 (6, 9), A003396 (7, 9), A003397 (8, 9), A003398 (9, 9), A003399 (10, 9), A004800 (11, 9), A004801 (12, 9), A004802 (2, 10), A004803 (3, 10), A004804 (4, 10), A004805 (5, 10), A004806 (6, 10), A004807 (7, 10), A004808 (8, 10), A004809 (9, 10), A004810 (10, 10), A004811 (11, 10), A004812 (12, 10), A004813 (2, 11), A004814 (3, 11), A004815 (4, 11), A004816 (5, 11), A004817 (6, 11), A004818 (7, 11), A004819 (8, 11), A004820 (9, 11), A004821 (10, 11), A004822 (11, 11), A004823 (12, 11), A047700 (5, 2).

offset corrected by David A. Corneth, Aug 01 2020

A003393 Numbers that are the sum of 4 positive 9th powers.

Original entry on oeis.org

4, 515, 1026, 1537, 2048, 19686, 20197, 20708, 21219, 39368, 39879, 40390, 59050, 59561, 78732, 262147, 262658, 263169, 263680, 281829, 282340, 282851, 301511, 302022, 321193, 524290, 524801, 525312, 543972, 544483, 563654, 786433, 786944, 806115, 1048576, 1953128, 1953639

Offset: 1

N. J. A. Sloane

As the order of addition doesn't matter we can assume terms are in nondecreasing order. - David A. Corneth, Aug 01 2020

			From _David A. Corneth_, Aug 01 2020: (Start)
12964419872 is in the sequence as 12964419872 = 3^9 + 5^9 + 11^9 + 13^9.
59116436980 is in the sequence as 59116436980 = 5^9 + 6^9 + 14^9 + 15^9.
79254744137 is in the sequence as 79254744137 = 6^9 + 11^9 + 15^9 + 15^9. (End)

David A. Corneth, Table of n, a(n) for n = 1..10000

A###### (x, y): Numbers that are the form of x nonzero y-th powers.

Cf. A000404 (2, 2), A000408 (3, 2), A000414 (4, 2), A003072 (3, 3), A003325 (3, 2), A003327 (4, 3), A003328 (5, 3), A003329 (6, 3), A003330 (7, 3), A003331 (8, 3), A003332 (9, 3), A003333 (10, 3), A003334 (11, 3), A003335 (12, 3), A003336 (2, 4), A003337 (3, 4), A003338 (4, 4), A003339 (5, 4), A003340 (6, 4), A003341 (7, 4), A003342 (8, 4), A003343 (9, 4), A003344 (10, 4), A003345 (11, 4), A003346 (12, 4), A003347 (2, 5), A003348 (3, 5), A003349 (4, 5), A003350 (5, 5), A003351 (6, 5), A003352 (7, 5), A003353 (8, 5), A003354 (9, 5), A003355 (10, 5), A003356 (11, 5), A003357 (12, 5), A003358 (2, 6), A003359 (3, 6), A003360 (4, 6), A003361 (5, 6), A003362 (6, 6), A003363 (7, 6), A003364 (8, 6), A003365 (9, 6), A003366 (10, 6), A003367 (11, 6), A003368 (12, 6), A003369 (2, 7), A003370 (3, 7), A003371 (4, 7), A003372 (5, 7), A003373 (6, 7), A003374 (7, 7), A003375 (8, 7), A003376 (9, 7), A003377 (10, 7), A003378 (11, 7), A003379 (12, 7), A003380 (2, 8), A003381 (3, 8), A003382 (4, 8), A003383 (5, 8), A003384 (6, 8), A003385 (7, 8), A003387 (9, 8), A003388 (10, 8), A003389 (11, 8), A003390 (12, 8), A003391 (2, 9), A003392 (3, 9), A003393 (4, 9), A003394 (5, 9), A003395 (6, 9), A003396 (7, 9), A003397 (8, 9), A003398 (9, 9), A003399 (10, 9), A004800 (11, 9), A004801 (12, 9), A004802 (2, 10), A004803 (3, 10), A004804 (4, 10), A004805 (5, 10), A004806 (6, 10), A004807 (7, 10), A004808 (8, 10), A004809 (9, 10), A004810 (10, 10), A004811 (11, 10), A004812 (12, 10), A004813 (2, 11), A004814 (3, 11), A004815 (4, 11), A004816 (5, 11), A004817 (6, 11), A004818 (7, 11), A004819 (8, 11), A004820 (9, 11), A004821 (10, 11), A004822 (11, 11), A004823 (12, 11), A047700 (5, 2).

Removed incorrect program. - David A. Corneth, Aug 01 2020

A004803 Numbers that are the sum of 3 nonzero 10th powers.

Original entry on oeis.org

3, 1026, 2049, 3072, 59051, 60074, 61097, 118099, 119122, 177147, 1048578, 1049601, 1050624, 1107626, 1108649, 1166674, 2097153, 2098176, 2156201, 3145728, 9765627, 9766650, 9767673, 9824675, 9825698, 9883723, 10814202, 10815225, 10873250

Offset: 1

N. J. A. Sloane

As the order of addition doesn't matter we can assume terms are in nondecreasing order. - David A. Corneth, Aug 01 2020

			From _David A. Corneth_, Aug 01 2020: (Start)
17258390288153 is in the sequence as 17258390288153 = 14^10 + 14^10 + 21^10.
42930989049225 is in the sequence as 42930989049225 = 19^10 + 20^10 + 22^10.
323760702520401 is in the sequence as 323760702520401 = 23^10 + 26^10 + 26^10. (End)

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)

A###### (x, y): Numbers that are the form of x nonzero y-th powers.

Cf. A000404 (2, 2), A000408 (3, 2), A000414 (4, 2), A003072 (3, 3), A003325 (3, 2), A003327 (4, 3), A003328 (5, 3), A003329 (6, 3), A003330 (7, 3), A003331 (8, 3), A003332 (9, 3), A003333 (10, 3), A003334 (11, 3), A003335 (12, 3), A003336 (2, 4), A003337 (3, 4), A003338 (4, 4), A003339 (5, 4), A003340 (6, 4), A003341 (7, 4), A003342 (8, 4), A003343 (9, 4), A003344 (10, 4), A003345 (11, 4), A003346 (12, 4), A003347 (2, 5), A003348 (3, 5), A003349 (4, 5), A003350 (5, 5), A003351 (6, 5), A003352 (7, 5), A003353 (8, 5), A003354 (9, 5), A003355 (10, 5), A003356 (11, 5), A003357 (12, 5), A003358 (2, 6), A003359 (3, 6), A003360 (4, 6), A003361 (5, 6), A003362 (6, 6), A003363 (7, 6), A003364 (8, 6), A003365 (9, 6), A003366 (10, 6), A003367 (11, 6), A003368 (12, 6), A003369 (2, 7), A003370 (3, 7), A003371 (4, 7), A003372 (5, 7), A003373 (6, 7), A003374 (7, 7), A003375 (8, 7), A003376 (9, 7), A003377 (10, 7), A003378 (11, 7), A003379 (12, 7), A003380 (2, 8), A003381 (3, 8), A003382 (4, 8), A003383 (5, 8), A003384 (6, 8), A003385 (7, 8), A003387 (9, 8), A003388 (10, 8), A003389 (11, 8), A003390 (12, 8), A003391 (2, 9), A003392 (3, 9), A003393 (4, 9), A003394 (5, 9), A003395 (6, 9), A003396 (7, 9), A003397 (8, 9), A003398 (9, 9), A003399 (10, 9), A004800 (11, 9), A004801 (12, 9), A004802 (2, 10), A004803 (3, 10), A004804 (4, 10), A004805 (5, 10), A004806 (6, 10), A004807 (7, 10), A004808 (8, 10), A004809 (9, 10), A004810 (10, 10), A004811 (11, 10), A004812 (12, 10), A004813 (2, 11), A004814 (3, 11), A004815 (4, 11), A004816 (5, 11), A004817 (6, 11), A004818 (7, 11), A004819 (8, 11), A004820 (9, 11), A004821 (10, 11), A004822 (11, 11), A004823 (12, 11), A047700 (5, 2).

kmax = 9*10^15; (* max term *)
m = kmax^(1/10) // Ceiling;
Table[k = x^10 + y^10 + z^10; If[k <= kmax, k, Nothing], {x, 1, m}, {y, x, m}, {z, y, m}] // Flatten // Union (* Jean-François Alcover, Jul 19 2017, updated May 02 2023 *)

Removed incorrect program. - David A. Corneth, Aug 01 2020

A004804 Numbers that are the sum of 4 nonzero 10th powers.

Original entry on oeis.org

4, 1027, 2050, 3073, 4096, 59052, 60075, 61098, 62121, 118100, 119123, 120146, 177148, 178171, 236196, 1048579, 1049602, 1050625, 1051648, 1107627, 1108650, 1109673, 1166675, 1167698, 1225723, 2097154, 2098177, 2099200, 2156202, 2157225

Offset: 1

N. J. A. Sloane

As the order of addition doesn't matter we can assume terms are in nondecreasing order. - David A. Corneth, Aug 01 2020

			From _David A. Corneth_, Aug 01 2020: (Start)
65969099123 is in the sequence as 65969099123 = 7^10 + 7^10 + 9^10 + 12^10.
1099804917226 is in the sequence as 1099804917226 = 4^10 + 5^10 + 7^10 + 16^10.
1164925542026 is in the sequence as 1164925542026 = 5^10 + 9^10 + 12^10 + 16^10. (End)

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)

A###### (x, y): Numbers that are the form of x nonzero y-th powers.

Cf. A000404 (2, 2), A000408 (3, 2), A000414 (4, 2), A003072 (3, 3), A003325 (3, 2), A003327 (4, 3), A003328 (5, 3), A003329 (6, 3), A003330 (7, 3), A003331 (8, 3), A003332 (9, 3), A003333 (10, 3), A003334 (11, 3), A003335 (12, 3), A003336 (2, 4), A003337 (3, 4), A003338 (4, 4), A003339 (5, 4), A003340 (6, 4), A003341 (7, 4), A003342 (8, 4), A003343 (9, 4), A003344 (10, 4), A003345 (11, 4), A003346 (12, 4), A003347 (2, 5), A003348 (3, 5), A003349 (4, 5), A003350 (5, 5), A003351 (6, 5), A003352 (7, 5), A003353 (8, 5), A003354 (9, 5), A003355 (10, 5), A003356 (11, 5), A003357 (12, 5), A003358 (2, 6), A003359 (3, 6), A003360 (4, 6), A003361 (5, 6), A003362 (6, 6), A003363 (7, 6), A003364 (8, 6), A003365 (9, 6), A003366 (10, 6), A003367 (11, 6), A003368 (12, 6), A003369 (2, 7), A003370 (3, 7), A003371 (4, 7), A003372 (5, 7), A003373 (6, 7), A003374 (7, 7), A003375 (8, 7), A003376 (9, 7), A003377 (10, 7), A003378 (11, 7), A003379 (12, 7), A003380 (2, 8), A003381 (3, 8), A003382 (4, 8), A003383 (5, 8), A003384 (6, 8), A003385 (7, 8), A003387 (9, 8), A003388 (10, 8), A003389 (11, 8), A003390 (12, 8), A003391 (2, 9), A003392 (3, 9), A003393 (4, 9), A003394 (5, 9), A003395 (6, 9), A003396 (7, 9), A003397 (8, 9), A003398 (9, 9), A003399 (10, 9), A004800 (11, 9), A004801 (12, 9), A004802 (2, 10), A004803 (3, 10), A004804 (4, 10), A004805 (5, 10), A004806 (6, 10), A004807 (7, 10), A004808 (8, 10), A004809 (9, 10), A004810 (10, 10), A004811 (11, 10), A004812 (12, 10), A004813 (2, 11), A004814 (3, 11), A004815 (4, 11), A004816 (5, 11), A004817 (6, 11), A004818 (7, 11), A004819 (8, 11), A004820 (9, 11), A004821 (10, 11), A004822 (11, 11), A004823 (12, 11), A047700 (5, 2).

k = 4; p = 10; amax = 3*10^6; bmax = amax^(1/p) // Ceiling; Clear[b]; b[0] = 1; Select[Table[Total[Array[b, k]^p], {b[1], b[0], bmax}, Evaluate[ Sequence @@ Table[{b[j], b[j-1], bmax}, {j, 1, k}]]] // Flatten // Union, # <= amax&] (* Jean-François Alcover, Jul 19 2017 *)

Removed incorrect program. - David A. Corneth, Aug 01 2020

A004805 Numbers that are the sum of 5 positive 10th powers.

Original entry on oeis.org

5, 1028, 2051, 3074, 4097, 5120, 59053, 60076, 61099, 62122, 63145, 118101, 119124, 120147, 121170, 177149, 178172, 179195, 236197, 237220, 295245, 1048580, 1049603, 1050626, 1051649, 1052672, 1107628, 1108651, 1109674, 1110697, 1166676, 1167699, 1168722, 1225724, 1226747

Offset: 1

N. J. A. Sloane

As the order of addition doesn't matter we can assume terms are in nondecreasing order. - David A. Corneth, Aug 01 2020

			From _David A. Corneth_, Aug 01 2020: (Start)
10352707051 is in the sequence as 10352707051 = 1^10 + 5^10 + 6^10 + 7^10 + 10^10.
59130893253 is in the sequence as 59130893253 = 7^10 + 9^10 + 9^10 + 11^10 + 11^10.
69011865378 is in the sequence as 69011865378 = 6^10 + 6^10 + 9^10 + 9^10 + 12^10. (End)

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)

A###### (x, y): Numbers that are the form of x nonzero y-th powers.

Cf. A000404 (2, 2), A000408 (3, 2), A000414 (4, 2), A003072 (3, 3), A003325 (3, 2), A003327 (4, 3), A003328 (5, 3), A003329 (6, 3), A003330 (7, 3), A003331 (8, 3), A003332 (9, 3), A003333 (10, 3), A003334 (11, 3), A003335 (12, 3), A003336 (2, 4), A003337 (3, 4), A003338 (4, 4), A003339 (5, 4), A003340 (6, 4), A003341 (7, 4), A003342 (8, 4), A003343 (9, 4), A003344 (10, 4), A003345 (11, 4), A003346 (12, 4), A003347 (2, 5), A003348 (3, 5), A003349 (4, 5), A003350 (5, 5), A003351 (6, 5), A003352 (7, 5), A003353 (8, 5), A003354 (9, 5), A003355 (10, 5), A003356 (11, 5), A003357 (12, 5), A003358 (2, 6), A003359 (3, 6), A003360 (4, 6), A003361 (5, 6), A003362 (6, 6), A003363 (7, 6), A003364 (8, 6), A003365 (9, 6), A003366 (10, 6), A003367 (11, 6), A003368 (12, 6), A003369 (2, 7), A003370 (3, 7), A003371 (4, 7), A003372 (5, 7), A003373 (6, 7), A003374 (7, 7), A003375 (8, 7), A003376 (9, 7), A003377 (10, 7), A003378 (11, 7), A003379 (12, 7), A003380 (2, 8), A003381 (3, 8), A003382 (4, 8), A003383 (5, 8), A003384 (6, 8), A003385 (7, 8), A003387 (9, 8), A003388 (10, 8), A003389 (11, 8), A003390 (12, 8), A003391 (2, 9), A003392 (3, 9), A003393 (4, 9), A003394 (5, 9), A003395 (6, 9), A003396 (7, 9), A003397 (8, 9), A003398 (9, 9), A003399 (10, 9), A004800 (11, 9), A004801 (12, 9), A004802 (2, 10), A004803 (3, 10), A004804 (4, 10), A004805 (5, 10), A004806 (6, 10), A004807 (7, 10), A004808 (8, 10), A004809 (9, 10), A004810 (10, 10), A004811 (11, 10), A004812 (12, 10), A004813 (2, 11), A004814 (3, 11), A004815 (4, 11), A004816 (5, 11), A004817 (6, 11), A004818 (7, 11), A004819 (8, 11), A004820 (9, 11), A004821 (10, 11), A004822 (11, 11), A004823 (12, 11), A047700 (5, 2).

k = 5; p = 10; amax = 2*10^6; bmax = amax^(1/p) // Ceiling; Clear[b]; b[0] = 1; Select[Table[Total[Array[b, k]^p], {b[1], b[0], bmax}, Evaluate[ Sequence @@ Table[{b[j], b[j - 1], bmax}, {j, 1, k}]]] //Flatten // Union, # <= amax&] (* Jean-François Alcover, Jul 19 2017 *)

Removed incorrect program. - David A. Corneth, Aug 01 2020

A004814 Numbers that are the sum of 3 positive 11th powers.

Original entry on oeis.org

3, 2050, 4097, 6144, 177149, 179196, 181243, 354295, 356342, 531441, 4194306, 4196353, 4198400, 4371452, 4373499, 4548598, 8388609, 8390656, 8565755, 12582912, 48828127, 48830174, 48832221, 49005273, 49007320, 49182419, 53022430

Offset: 1

N. J. A. Sloane

As the order of addition doesn't matter we can assume terms are in nondecreasing order. - David A. Corneth, Aug 01 2020

			From _David A. Corneth_, Aug 01 2020: (Start)
204800049005272 is in the sequence as 204800049005272 = 3^11 + 5^11 + 20^11.
2518268235958260 is in the sequence as 2518268235958260 = 16^11 + 19^11 + 25^11.
3786934745885995 is in the sequence as 3786934745885995 = 10^11 + 19^11 + 26^11. (End)

David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)

A###### (x, y): Numbers that are the form of x nonzero y-th powers.

Cf. A000404 (2, 2), A000408 (3, 2), A000414 (4, 2), A003072 (3, 3), A003325 (3, 2), A003327 (4, 3), A003328 (5, 3), A003329 (6, 3), A003330 (7, 3), A003331 (8, 3), A003332 (9, 3), A003333 (10, 3), A003334 (11, 3), A003335 (12, 3), A003336 (2, 4), A003337 (3, 4), A003338 (4, 4), A003339 (5, 4), A003340 (6, 4), A003341 (7, 4), A003342 (8, 4), A003343 (9, 4), A003344 (10, 4), A003345 (11, 4), A003346 (12, 4), A003347 (2, 5), A003348 (3, 5), A003349 (4, 5), A003350 (5, 5), A003351 (6, 5), A003352 (7, 5), A003353 (8, 5), A003354 (9, 5), A003355 (10, 5), A003356 (11, 5), A003357 (12, 5), A003358 (2, 6), A003359 (3, 6), A003360 (4, 6), A003361 (5, 6), A003362 (6, 6), A003363 (7, 6), A003364 (8, 6), A003365 (9, 6), A003366 (10, 6), A003367 (11, 6), A003368 (12, 6), A003369 (2, 7), A003370 (3, 7), A003371 (4, 7), A003372 (5, 7), A003373 (6, 7), A003374 (7, 7), A003375 (8, 7), A003376 (9, 7), A003377 (10, 7), A003378 (11, 7), A003379 (12, 7), A003380 (2, 8), A003381 (3, 8), A003382 (4, 8), A003383 (5, 8), A003384 (6, 8), A003385 (7, 8), A003387 (9, 8), A003388 (10, 8), A003389 (11, 8), A003390 (12, 8), A003391 (2, 9), A003392 (3, 9), A003393 (4, 9), A003394 (5, 9), A003395 (6, 9), A003396 (7, 9), A003397 (8, 9), A003398 (9, 9), A003399 (10, 9), A004800 (11, 9), A004801 (12, 9), A004802 (2, 10), A004803 (3, 10), A004804 (4, 10), A004805 (5, 10), A004806 (6, 10), A004807 (7, 10), A004808 (8, 10), A004809 (9, 10), A004810 (10, 10), A004811 (11, 10), A004812 (12, 10), A004813 (2, 11), A004814 (3, 11), A004815 (4, 11), A004816 (5, 11), A004817 (6, 11), A004818 (7, 11), A004819 (8, 11), A004820 (9, 11), A004821 (10, 11), A004822 (11, 11), A004823 (12, 11), A047700 (5, 2).

Removed incorrect program. - David A. Corneth, Aug 01 2020

A025457 Number of partitions of n into 4 positive cubes.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1

Offset: 0

David W. Wilson

nonn

The first term > 1 is a(219) = 2. - Michel Marcus, Apr 23 2019

Robert Israel, Table of n, a(n) for n = 0..10000
Index entries for sequences related to sums of cubes

Cf. A003108, A025455, A025456, A025403-A025407, A003327, A025420 (greedy inverse).

N:= 100;
A:= Array(0..N);
for a from 1 to floor(N^(1/3)) do
  for b from a to floor((N-a^3)^(1/3)) do
     for c from b to floor((N-a^3-b^3)^(1/3)) do
        for d from c to floor((N-a^3-b^3-c^3)^(1/3)) do
          n:= a^3 + b^3 + c^3 + d^3;
          A[n]:= A[n]+1;
od od od od:
seq(A[n],n=0..N); # Robert Israel, Aug 18 2014
A025457 := proc(n)
    local a,x,y,z,ucu ;
    a := 0 ;
    for x from 1 do
        if 4*x^3 > n then
            return a;
        end if;
        for y from x do
            if x^3+3*y^3 > n then
                break;
            end if;
            for z from y do
                if x^3+y^3+2*z^3 > n then
                    break;
                end if;
                ucu := n-x^3-y^3-z^3 ;
                if isA000578(ucu) then
                    a := a+1 ;
                end if;
            end do:
        end do:
    end do:
end proc: # R. J. Mathar, Sep 15 2015

r[n_] := Reduce[0 < a <= b <= c <= d && n == a^3+b^3+c^3+d^3, {a, b, c, d}, Integers];
a[n_] := Which[rn = r[n]; rn === False, 0, rn[[0]] === And, 1, rn[[0]] === Or, Length[rn], True, Print["error ", rn]];
Table[a[n], {n, 0, 107}] (* Jean-François Alcover, Feb 26 2019 *)

a(n) = [x^n y^4] Product_{k>=1} 1/(1 - y*x^(k^3)). - Ilya Gutkovskiy, Apr 23 2019

Second offset from Michel Marcus, Apr 23 2019

A025406 Numbers that are the sum of 4 positive cubes in 2 or more ways.

Original entry on oeis.org

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

David W. Wilson

nonn

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A003327, A008917, A025367, A025404, A025407, A025457, A309763, A343702.

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

{n: A025457(n) >= 2}. - R. J. Mathar, Jun 15 2018

A343705 Numbers that are the sum of five positive cubes in exactly three ways.

Original entry on oeis.org

766, 810, 827, 829, 865, 883, 981, 1018, 1025, 1044, 1070, 1105, 1108, 1142, 1145, 1161, 1168, 1226, 1233, 1259, 1289, 1350, 1368, 1424, 1431, 1439, 1441, 1457, 1487, 1492, 1494, 1529, 1531, 1538, 1550, 1555, 1568, 1583, 1587, 1592, 1593, 1594, 1609, 1611, 1613, 1639, 1648, 1665, 1672, 1674, 1688, 1707, 1711

Offset: 1

David Consiglio, Jr., Apr 26 2021

This sequence differs from A343704 at term 20 because 1252 = 1^3 + 1^3 + 5^3 + 5^3 + 10^3 = 1^3 + 2^3 + 3^3 + 6^3 + 10^3 = 3^3 + 3^3 + 7^3 + 7^3 + 8^3 = 3^3 + 4^3 + 6^3 + 6^3 + 9^3. Thus this term is in A343704 but not in this sequence.
Comment from D. S. McNeil, May 13 2021: (Start)
If we weaken positive cubes to nonnegative cubes, Deshouillers, Hennecart, and Landreau (2000) give numerical and heuristic evidence that all numbers past 7373170279850 are representable as the sum of 4 nonnegative cubes.
So if they are right, then eventually we can just take some N and represent each of (N-1^3, N-2^3, N-3^3, N-4^3) as the sum of four cubes and then take 1^3, 2^3, 3^3, or 4^3 as our fifth cube, giving at least four 5-cube representations for N.
So it is very likely that the set of numbers representable by the sum of 5 positive cubes in exactly three ways is finite. (End)
It is conjectured that the number of ways of writing N as a sum of 5 positive cubes grows like C(N)*N^(2/3), where C(N) depends on N but is bounded away from zero by an absolute constant (Vaughan, 1981; Vaughan and Wooley, 2002). So the number will exceed 3 as soon as N is large enough, and so it is very likely that this sequence is finite. However, at present this is an open question. - N. J. A. Sloane, May 15 2021 (based on correspondence with Robert Vaughan and Trevor Wooley).

			827 is a term of this sequence because 827 = 1^3 + 4^3 + 5^3 + 5^3 + 8^3 = 2^3 + 2^3 + 5^3 + 7^3 + 7^3 = 2^3 + 3^3 + 4^3 + 6^3 + 8^3.

R. C. Vaughan, The Hardy-Littlewood Method, Cambridge University Press, 1981.
R. C. Vaughan, Trevor Wooley (2002), Waring's Problem: A Survey. In Michael A. Bennet, Bruce C. Berndt, Nigel Boston, Harold G. Diamond, Adolf J. Hildebrand, Walter Philipp (eds.). Number Theory for the Millennium. III. Natick, MA: A. K. Peters, pp. 301-340.

David Consiglio, Jr. and Sean A. Irvine, Table of n, a(n) for n = 1..18984
Jean-Marc Deshouillers, François Hennecart, and Bernard Landreau, 7373170279850, Math. Comp. 69 (2000), pp. 421-439. Appendix by I. Gusti Putu Purnaba.

Equivalent sequences for 1 way: A048926; 2 ways: A048927; 1 or more ways: A003328; 3 or more ways: A343704.

Cf. A003327.

Select[Range@2000,Length@Select[PowersRepresentations[#,5,3],FreeQ[#,0]&]==3&] (* Giorgos Kalogeropoulos, Apr 26 2021 *)

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,50)]#n
for pos in cwr(power_terms,5):#m
    tot = sum(pos)
    keep[tot] += 1
rets = sorted([k for k,v in keep.items() if v == 3])#s
for x in range(len(rets)):
    print(rets[x])

A025403 Numbers that are the sum of 4 positive cubes in exactly 1 way.

Original entry on oeis.org

4, 11, 18, 25, 30, 32, 37, 44, 51, 56, 63, 67, 70, 74, 81, 82, 88, 89, 93, 100, 107, 108, 119, 126, 128, 130, 135, 137, 142, 144, 145, 149, 154, 156, 161, 163, 168, 180, 182, 187, 191, 193, 198, 200, 205, 206, 217, 224, 226, 233, 240, 243, 245, 254, 256, 261, 266, 271, 280

Offset: 1

David W. Wilson

nonn

Eric Weisstein's World of Mathematics, Cubic Number.

Cf. A003327, A025357, A025395, A025399, A025404, A048926, A344189.

Reap[For[n = 1, n <= 300, n++, pr = Select[ PowersRepresentations[n, 4, 3], Times @@ # != 0 &]; If[pr != {} && Length[pr] == 1, Print[n, pr]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jul 31 2013 *)

{n: A025457(n) = 1}. - R. J. Mathar, Jun 15 2018

cp's OEIS Frontend

A003388 Sum of 10 nonzero 8th powers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Extensions

A003393 Numbers that are the sum of 4 positive 9th powers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Extensions

A004803 Numbers that are the sum of 3 nonzero 10th powers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A004804 Numbers that are the sum of 4 nonzero 10th powers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A004805 Numbers that are the sum of 5 positive 10th powers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A004814 Numbers that are the sum of 3 positive 11th powers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Extensions

A025457 Number of partitions of n into 4 positive cubes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A025406 Numbers that are the sum of 4 positive cubes in 2 or more ways.

Views

Author

Keywords

Links

Crossrefs

Programs