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.

A003362 Numbers that are the sum of 6 positive 6th powers.

Original entry on oeis.org

6, 69, 132, 195, 258, 321, 384, 734, 797, 860, 923, 986, 1049, 1462, 1525, 1588, 1651, 1714, 2190, 2253, 2316, 2379, 2918, 2981, 3044, 3646, 3709, 4101, 4164, 4227, 4290, 4353, 4374, 4416, 4829, 4892, 4955, 5018, 5081, 5557, 5620, 5683, 5746, 6285, 6348, 6411, 7013
Offset: 1

Views

Author

Keywords

Comments

This sequence has no sixth powers less than 1.5133*10^35. - J. Lowell, Jul 03 2021

Examples

			From _David A. Corneth_, Aug 03 2020: (Start)
448832 is in the sequence as 448832 = 2^6 + 6^6 + 6^6 + 6^6 + 6^6 + 8^6.
1000733 is in the sequence as 1000733 = 1^6 + 1^6 + 1^6 + 1^6 + 3^6 + 10^6.
1819677 is in the sequence as 1819677 = 1^6 + 1^6 + 3^6 + 3^6 + 6^6 + 11^6. (End)
		

Crossrefs

Cf. A001014 (sixth powers).
Column k=6 of A336725.

Programs

  • Mathematica
    Reap[For[n = 1, n <= 10000, n++, If[AnyTrue[PowersRepresentations[n, 6, 6], First[#] > 0&], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jul 18 2017 *)
    With[{nn=5},Select[Total/@Tuples[Range[nn]^6,6]//Union,#<=nn^6-5&]] (* Harvey P. Dale, Mar 27 2022 *)