OFFSET
0,3
LINKS
Johann Peters, Table of n, a(n) for n = 0..10000
Taylor Dupuy and David E. Weirich, Bits of 3^n in binary, Wieferich primes and a conjecture of Erdős, Journal of Number Theory, Volume 158, January 2016, Pages 268-280.
MATHEMATICA
f[n_] := DigitCount[3^n, 2, 0]; Table[f[n], {n, 0, 73}] (* Ray Chandler, Sep 29 2006 *)
PROG
(PARI) a(n) = #select(x->(x==0), binary(3^n)); \\ Michel Marcus, Apr 14 2020
(Python)
def A118736(n): return (m:=3**n).bit_length()-m.bit_count() # Chai Wah Wu, May 07 2026
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 22 2006
STATUS
approved
