|
%I #22 Jan 31 2021 02:38:28
%S 1,10,100,110,111,153,200,221,370,371,407,500,702,1000,1010,1011,1040,
%T 1100,1101,1110,1120,1210,1215,1232,1323,1530,1728,2000,2030,2080,
%U 2110,2210,2240,2331,2352,2376,2464,2580,3212,3213,3304,3456,3520,3700,3710
%N Numbers divisible by the sum of the cubes of their digits.
%C Ratio between original number and a(n) = 1 for n = 1, 6, 9, 10, 11, ... a(n)= 1, 153, 370, 371, 407,... - _Carmine Suriano_, May 04 2013
%H Amiram Eldar, <a href="/A034088/b034088.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1001 from Carmine Suriano)
%e 12672 is a term since 1^3+2^3+6^3+7^3+2^3 = 576 divides 12672. - _Carmine Suriano_, May 04 2013
%t Select[Range[4000], Divisible[#, Plus @@ (IntegerDigits[#]^3)] &] (* _Amiram Eldar_, Jan 31 2021 *)
%Y Cf. A034087, A055012, A169665, A169666.
%K base,easy,nonn
%O 1,2
%A _Erich Friedman_
%E Offset corrected by _Amiram Eldar_, Jan 31 2021
|
