|
%I #9 Jul 03 2021 15:05:01
%S 0,1,2,3,4,5,6,7,8,9,11,12,13,14,15,16,17,18,19,22,23,24,25,26,27,28,
%T 31,33,35,36,37,38,46
%N Sum of digits of a(n)^5 is greater than or equal to a(n).
%e a(2) = 2 because 2^5 = 32 and 3+2 = 5>= 2
%t Select[Range[0,50],Total[IntegerDigits[#^5]]>=#&] (* _Harvey P. Dale_, Jul 03 2021 *)
%Y Cf. A055566, A055576, A055568, A055569, A055570, A055572.
%K base,fini,full,nonn
%O 1,3
%A _Henry Bottomley_, May 26 2000
|
