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,1

Links

Table of n, a(n) for n=1..2.

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

Sequence in context: A115446 A358445 A254850 * A031566 A236815 A343637

Adjacent sequences: A139407 A139408 A139409 * A139411 A139412 A139413

Keyword

base,fini,full,nonn,bref

Author

Farideh Firoozbakht, May 11 2008

Status

approved