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