A055255 Number of even digits in 3^n.

0, 0, 0, 1, 1, 2, 1, 2, 2, 2, 2, 1, 2, 2, 4, 4, 5, 4, 6, 6, 7, 6, 4, 5, 8, 9, 8, 6, 8, 8, 8, 6, 9, 6, 8, 6, 7, 8, 7, 8, 10, 9, 7, 9, 11, 11, 10, 11, 12, 10, 10, 8, 16, 13, 12, 11, 9, 16, 18, 14, 14, 17, 19, 16, 19, 13, 17, 14, 14, 14, 14, 14, 17, 16, 15, 16, 16, 15, 25, 23, 22

Offset

0,6

Links

Seiichi Manyama, Table of n, a(n) for n = 0..10000

Mathematica

A055255[n_] := Count[IntegerDigits[3^n], _?EvenQ];
Array[A055255, 100, 0] (* Paolo Xausa, Feb 03 2026 *)

Prog

(PARI) a(n) = #select(x->((x%2) == 0), digits(3^n)); \\ Michel Marcus, Nov 22 2019

Crossrefs

Cf. A055256, A034888.

Sequence in context: A338260 A224963 A073810 * A057768 A317990 A106030

Adjacent sequences: A055252 A055253 A055254 * A055256 A055257 A055258

Keyword

nonn,base,easy

Author

Asher Auel, May 05 2000

Status

approved