A375976 Sum of squares of the decimal digits of 2^n.

1, 4, 16, 64, 37, 13, 52, 69, 65, 30, 21, 84, 133, 150, 126, 162, 131, 64, 77, 177, 191, 164, 139, 301, 225, 113, 266, 197, 231, 269, 209, 275, 404, 450, 443, 371, 426, 332, 461, 487, 413, 288, 266, 396, 346, 382, 426, 404, 463, 393, 514, 528, 517, 569, 584

Offset

0,2

Links

Table of n, a(n) for n=0..54.

Formula

a(n) = A003132(A000079(n)).

Example

For n=4, 2^4 = 16 and those digits 1^2 + 6^2 = 37 = a(4).

Mathematica

a[n_]:=Norm[IntegerDigits[2^n]]^2; Array[a, 55, 0] (* Stefano Spezia, Sep 06 2024 *)

Prog

(PARI) a(n) = norml2(digits(2^n)); \\ Michel Marcus, Sep 06 2024
(Python)
def A375976(n): return sum((0, 1, 4, 9, 16, 25, 36, 49, 64, 81)[int(d)] for d in str(1<<n) if d>'0') # Chai Wah Wu, Sep 30 2024

Crossrefs

Cf. A000079, A003132, A001370, A110892.

Sequence in context: A073533 A330689 A061283 * A242354 A001264 A307138

Adjacent sequences: A375973 A375974 A375975 * A375977 A375978 A375979

Keyword

nonn,base,easy,new

Author

Luca Khan, Sep 04 2024

Status

approved