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 A334601 #24 May 14 2020 07:49:46
%S A334601 1,2,3,4,5,6,7,8,9,24,27,37,48,153,370,371,407,459
%N A334601 Positive integers m such that sum of cubes of the digits of m, t=A055012(m), is a multiple of m (m/A055012(m) is an integer >= 1).
%C A334601 Corresponding values of t: 1, 8, 27, 64, 125, 216, 343, 512, 729, 72, 351, 370, 576, 153, 370, 371, 407, 918 (first 9 terms are all cubes).
%C A334601 Corresponding values of t/m: 1, 4, 9, 16, 25, 36, 49, 64, 81, 3, 13, 10, 12, 1, 1, 1, 1, 2 (first 9 terms are all squares).
%C A334601 The subsequence of numbers m such that sum of cubes of its digits is equal to m is A046197 \ {0}. - _Bernard Schott_, May 11 2020
%e A334601 m = 459, t = 4^3 + 5^3 + 9^3 = 918, t/m = 2.
%t A334601 Select[Range[500], Divisible[Plus @@ (IntegerDigits[#]^3), #] &] (* _Amiram Eldar_, May 11 2020 *)
%o A334601 (PARI) isok(m) = my(d=digits(m)); sum(k=1, #d, d[k]^3) % m == 0; \\ _Michel Marcus_, May 14 2020
%Y A334601 Cf. A005188, A046197, A046459, A055012, A055642, A101337, A306354, A306360, A306361, A329291.
%K A334601 base,nonn,fini,full
%O A334601 1,2
%A A334601 _Zak Seidov_, May 07 2020 and May 12 2020