# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a034088 Showing 1-1 of 1 %I A034088 #22 Jan 31 2021 02:38:28 %S A034088 1,10,100,110,111,153,200,221,370,371,407,500,702,1000,1010,1011,1040, %T A034088 1100,1101,1110,1120,1210,1215,1232,1323,1530,1728,2000,2030,2080, %U A034088 2110,2210,2240,2331,2352,2376,2464,2580,3212,3213,3304,3456,3520,3700,3710 %N A034088 Numbers divisible by the sum of the cubes of their digits. %C A034088 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 A034088 Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1001 from Carmine Suriano) %e A034088 12672 is a term since 1^3+2^3+6^3+7^3+2^3 = 576 divides 12672. - _Carmine Suriano_, May 04 2013 %t A034088 Select[Range[4000], Divisible[#, Plus @@ (IntegerDigits[#]^3)] &] (* _Amiram Eldar_, Jan 31 2021 *) %Y A034088 Cf. A034087, A055012, A169665, A169666. %K A034088 base,easy,nonn %O A034088 1,2 %A A034088 _Erich Friedman_ %E A034088 Offset corrected by _Amiram Eldar_, Jan 31 2021 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE