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.
%I A003363 #29 Nov 08 2022 13:59:02 %S A003363 7,70,133,196,259,322,385,448,735,798,861,924,987,1050,1113,1463,1526, %T A003363 1589,1652,1715,1778,2191,2254,2317,2380,2443,2919,2982,3045,3108, %U A003363 3647,3710,3773,4102,4165,4228,4291,4354,4375,4417,4438,4480,4830,4893,4956,5019,5082 %N A003363 Numbers that are the sum of 7 positive 6th powers. %H A003363 David A. Corneth, <a href="/A003363/b003363.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from T. D. Noe) %F A003363 a(n) == 0 (mod 7). - _Joerg Arndt_, Nov 08 2022 %e A003363 From _David A. Corneth_, Aug 03 2020: (Start) %e A003363 267342 is in the sequence as 267342 = 1^6 + 2^6 + 3^6 + 5^6 + 5^6 + 7^6 + 7^6. %e A003363 594482 is in the sequence as 594482 = 1^6 + 4^6 + 4^6 + 4^6 + 4^6 + 6^6 + 9^6. %e A003363 696667 is in the sequence as 696667 = 2^6 + 2^6 + 2^6 + 3^6 + 6^6 + 7^6 + 9^6. (End) %t A003363 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 *) %Y A003363 Cf. A001014 (sixth powers). %K A003363 nonn,easy %O A003363 1,1 %A A003363 _N. J. A. Sloane_