|
%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
|
