A055571 Sum of digits of a(n)^5 is greater than or equal to a(n).
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, 31, 33, 35, 36, 37, 38, 46
Offset: 1
Examples
a(2) = 2 because 2^5 = 32 and 3+2 = 5>= 2
Programs
-
Mathematica
Select[Range[0,50],Total[IntegerDigits[#^5]]>=#&] (* Harvey P. Dale, Jul 03 2021 *)