A139410 Numbers n such that n = 4^d_1 + 4^d_2 + ... + 4^d_k where d_1d_2...d_k is the decimal expansion of n.
4624, 595968
Offset: 1
Examples
595968 = 4^5 + 4^9 + 4^5 + 4^9 + 4^6 + 4^8.
Programs
-
Mathematica
Select[Range[596000],Total[4^IntegerDigits[#]]==#&] (* Harvey P. Dale, May 21 2021 *)