OFFSET
0,3
EXAMPLE
a(2) = 2 because 2^4 = 16 and 1+6 = 7>= 2
MATHEMATICA
Select[Range[0, 50], Total[IntegerDigits[#^4]]>=#&] (* Harvey P. Dale, Jan 20 2020 *)
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Henry Bottomley, May 26 2000
EXTENSIONS
Definition clarified by Harvey P. Dale, Jan 20 2020
STATUS
approved