login
Sum of digits of a(n)^3 is greater than or equal to a(n).
6

%I #5 Aug 27 2013 16:14:41

%S 0,1,2,3,4,5,6,7,8,9,12,13,14,15,16,17,18,19,26,27

%N Sum of digits of a(n)^3 is greater than or equal to a(n).

%e a(4) = 4 because 4^3 = 64 and 6+4 = 10>= 4

%t Select[Range[300],Total[IntegerDigits[#^3]]>=#&] (* _Harvey P. Dale_, Aug 27 2013 *)

%Y Cf. A004164, A046459, A055568, A055570, A055571, A055572.

%K base,fini,full,nonn

%O 0,3

%A _Henry Bottomley_, May 26 2000