OFFSET
1,2
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..10000
MAPLE
q:= n-> is(add(i, i=Bits[Split](3^n))::even):
select(q, [$0..150])[]; # Alois P. Heinz, Apr 24 2024
MATHEMATICA
Select[Range[136], EvenQ@ DigitCount[3^#, 2, 1] &] (* Michael De Vlieger, Apr 24 2024 *)
PROG
(PARI) is_a371970(k) = hammingweight(3^k)%2 == 0
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Hugo Pfoertner, Apr 24 2024
STATUS
approved