OFFSET
1,2
COMMENTS
These are the k-values of the lower envelope of the scatter band of the deviation of the binary weight of 3^k from half the length of the corresponding binary number. The corresponding negated differences are given in A372098.
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..99
Hugo Pfoertner, Illustration of scatter band bounded by lower and upper records, up to exponents k=8*10^6.
PROG
(PARI) a372097(upto) = {my (dm=-oo); for (k=0, upto, my (p=3^k, h=hammingweight(p), b=#binary(p)/2, d=b-h); if (d>dm, print1(k, ", "); dm=d))};
a372097(60000)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Apr 25 2024
STATUS
approved