A003363 Numbers that are the sum of 7 positive 6th powers.
7, 70, 133, 196, 259, 322, 385, 448, 735, 798, 861, 924, 987, 1050, 1113, 1463, 1526, 1589, 1652, 1715, 1778, 2191, 2254, 2317, 2380, 2443, 2919, 2982, 3045, 3108, 3647, 3710, 3773, 4102, 4165, 4228, 4291, 4354, 4375, 4417, 4438, 4480, 4830, 4893, 4956, 5019, 5082
Offset: 1
Examples
From _David A. Corneth_, Aug 03 2020: (Start) 267342 is in the sequence as 267342 = 1^6 + 2^6 + 3^6 + 5^6 + 5^6 + 7^6 + 7^6. 594482 is in the sequence as 594482 = 1^6 + 4^6 + 4^6 + 4^6 + 4^6 + 6^6 + 9^6. 696667 is in the sequence as 696667 = 2^6 + 2^6 + 2^6 + 3^6 + 6^6 + 7^6 + 9^6. (End)
Links
- David A. Corneth, Table of n, a(n) for n = 1..10000 (first 1000 terms from T. D. Noe)
Crossrefs
Cf. A001014 (sixth powers).
Programs
-
Mathematica
Reap[For[n = 1, n <= 5000, n++, If[AnyTrue[PowersRepresentations[n, 7, 6], First[#] > 0&], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jul 18 2017 *)
Formula
a(n) == 0 (mod 7). - Joerg Arndt, Nov 08 2022