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 A331203 #12 Sep 08 2022 08:46:25 %S A331203 1,2,3,4,5,6,7,8,9,72,243,320,486,512,640,704,832,960,1000,1088,1125, %T A331203 2000,2401,3000,3430,4000,4116,4802,5000,5145,5831,6000,6174,6517, %U A331203 6860,7000,7546,8000,8575,8918,9000,9216,9947,19683,35152,35937,41743,43940,46137 %N A331203 Numbers k such that k/(digsum(k)) is an integer cube. %C A331203 If m belongs to the sequence, then 1000*m also belongs to the sequence. - _Rémy Sigrist_, Jan 12 2020 %e A331203 a(11) = 243: 243/(2 + 4 + 3) = 27 = 3^3. %e A331203 a(12) = 320: 320/(3 + 2 + 0) = 64 = 4^3. %t A331203 Select[Range[100000], IntegerQ[CubeRoot[#/Total[IntegerDigits[#]]]] &] %o A331203 (Magma) [n : n in[1 .. 1000] | IsIntegral((n/(&+Intseq(n)))^(1/3))]; %o A331203 (PARI) is(n) = my (k=n/sumdigits(n)); type(k)==type(42) && ispower(k,3) \\ _Rémy Sigrist_, Jan 12 2020 %Y A331203 Cf. A001102, A005349, A007953, A028839, A059094. %K A331203 nonn,base %O A331203 1,2 %A A331203 _K. D. Bajpai_, Jan 12 2020