cp's OEIS Frontend

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.

Showing 1-4 of 4 results.

A332107 Numbers that are not the sum of seven (7) positive cubes.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 29, 30, 31, 32, 34, 36, 37, 38, 39, 41, 43, 44, 45, 46, 48, 50, 51, 52, 53, 55, 57, 58, 60, 62, 63, 64, 65, 67, 69, 71, 72, 74, 76, 78, 79, 81, 82, 83, 86, 88, 89, 90, 93, 95, 97, 100
Offset: 1

Views

Author

M. F. Hasler, Aug 24 2020

Keywords

Comments

The sequence is finite, with last term a(208) = 2408.

Examples

			The smallest positive numbers not in the sequence are 7 = 7 * 1^3, 14 = 2^3 + 6 * 1^3, 21 = 2 * 2^3 + 5 * 1^3, ...
The last 10 terms of the sequence are a(199 .. 208) = {1078, 1094, 1364, 1409, 1579, 1582, 1796, 2030, 2382, 2408}.

Links

Crossrefs

Complement of A003330.
Cf. A332108, A332109, A332110, A332111: analog for eight, ..., eleven cubes.

Programs

  • Mathematica
    Select[Range[100], (pr = PowersRepresentations[#, 7, 3][[;; , 1]]) == {} || Max[pr] == 0 &] (* Amiram Eldar, Aug 24 2020 *)
  • PARI
    A332107=setminus([1..2440],A003330_upto(2444))

A332109 Numbers that are not the sum of nine (9) positive cubes.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 36, 38, 39, 40, 41, 43, 45, 46, 47, 48, 50, 52, 53, 54, 55, 57, 59, 60, 62, 64, 66, 67, 69, 71, 73, 74, 76, 78, 80, 81, 83, 85, 88, 90, 92, 95, 97, 99, 102
Offset: 1

Views

Author

M. F. Hasler, Aug 24 2020

Keywords

Comments

The sequence is finite, with last term a(114) = 471.

Examples

			The smallest positive numbers not in the sequence are:
  9 = 9 * 1^3, 16 = 2^3 + 8 * 1^3, 23 = 2 * 2^3 + 7 * 1^3,
  30 = 3 * 2^3 + 6 * 1^3 and then 35 = 3^3 + 8 * 1^3.
The last 10 terms of the sequence are a(105 .. 114) = {293, 305, 310, 312, 319, 347, 366, 373, 422, 471}.

Links

Crossrefs

Complement of A003332.
Cf. A332107, A332108, A332110 (analog for 7, 8 and 10 cubes, respectively).

Programs

  • Mathematica
    Select[Range[500], (pr = PowersRepresentations[#, 9, 3][[;; , 1]]) == {} || Max[pr] == 0 &] (* Amiram Eldar, Aug 24 2020 *)
  • PARI
    A332109=setminus([1..555],A003332_upto(666))

A332110 Numbers that are not the sum of ten (10) positive cubes.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 32, 33, 34, 35, 37, 39, 40, 41, 42, 44, 46, 47, 48, 49, 51, 53, 54, 55, 56, 58, 60, 61, 63, 65, 67, 68, 70, 72, 74, 75, 77, 79, 81, 82, 84, 86, 89, 91, 93, 96, 98, 100
Offset: 1

Views

Author

M. F. Hasler, Aug 24 2020

Keywords

Comments

The sequence is finite, with last term a(99) = 374.

Examples

			The smallest positive numbers not in the sequence are:
  10 = 10 * 1^3, 17 = 2^3 + 9 * 1^3, 24 = 2 * 2^3 + 8 * 1^3,
  31 = 3 * 2^3 + 7 * 1^3 and then 36 = 3^3 + 9 * 1^3.
The last 10 terms of the sequence are a(90 .. 99) = {196, 201, 208, 215, 222, 257, 294, 313, 320, 374}.

Links

Crossrefs

Complement of A003333.
Cf. A332107, A332108, A332109, A332111 (analog for 7, 8, 9, resp. 11 cubes).

Programs

  • Mathematica
    Select[Range[400], (pr = PowersRepresentations[#, 10, 3][[;; , 1]]) == {} || Max[pr] == 0 &] (* Amiram Eldar, Aug 24 2020 *)
  • PARI
    A332110=setminus([1..444],A003333_upto(555))

A332111 Numbers that are not the sum of eleven (11) positive cubes.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 38, 40, 41, 42, 43, 45, 47, 48, 49, 50, 52, 54, 55, 56, 57, 59, 61, 62, 64, 66, 68, 69, 71, 73, 75, 76, 78, 80, 82, 83, 85, 87, 90, 92, 94, 97, 99
Offset: 1

Views

Author

M. F. Hasler, Aug 25 2020

Keywords

Comments

The sequence is finite, with last term a(92) = 321.

Examples

			The smallest positive numbers not in the sequence are:
  11 = 11 * 1^3, 18 = 2^3 + 10 * 1^3, 25 = 2 * 2^3 + 9 * 1^3,
  32 = 3 * 2^3 + 8 * 1^3 and then 37 = 3^3 + 10 * 1^3.
The last 23 terms of the sequence (not in the data section) are a(70 .. 92) = {101, 104, 106, 108, 111, 113, 118, 120, 125, 127, 132, 134, 139, 146, 153, 160, 171, 190, 197, 209, 216, 223, 321}.

Links

Crossrefs

Complement of A003334.
Cf. A332107, A332108, A332109, A332110 (analog for 7, 8, 9 and 10 cubes).

Programs

  • Mathematica
    Select[Range[400], (pr = PowersRepresentations[#, 11, 3][[;; , 1]]) == {} || Max[pr] == 0 &] (* adapted from Amiram Eldar's code for A332110 *)
  • PARI
    A332111=setminus([1..333],A003333_upto(444))
Showing 1-4 of 4 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.