OFFSET
1,1
EXAMPLE
595968 = 4^5 + 4^9 + 4^5 + 4^9 + 4^6 + 4^8.
MATHEMATICA
Select[Range[596000], Total[4^IntegerDigits[#]]==#&] (* Harvey P. Dale, May 21 2021 *)
CROSSREFS
KEYWORD
base,fini,full,nonn,bref
AUTHOR
Farideh Firoozbakht, May 11 2008
STATUS
approved