# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a372099
Showing 1-1 of 1

%I A372099 #7 May 02 2024 17:34:06
%S A372099 0,1,3,5,11,27,71,119,140,158,198,218,441,537,538,868,1092,2128,2294,
%T A372099 2343,2811,2911,3849,4003,4655,5079,5279,5920,6269,6603,10181,10574,
%U A372099 12801,12803,15563,15784,16054,16253,17127,18257,20187,21934,34633,49209,76791,78938
%N A372099 Exponents k where A000120(3^k) - A070939(3^k)/2 reaches a new maximum.
%C A372099 These are the k-values ​​of the upper 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 differences are given in A372100.
%H A372099 Hugo Pfoertner, <a href="/A372099/b372099.txt">Table of n, a(n) for n = 1..96</a>
%H A372099 Hugo Pfoertner, <a href="/A372099/a372099.png">Illustration of scatter band bounded by lower and upper records</a>, up to exponents k=8.5*10^6.
%o A372099 (PARI) a372099(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))};
%o A372099 a372099(80000)
%Y A372099 Cf. A000120, A000244, A011754, A070939, A078839, A372097, A372098, A372100.
%K A372099 nonn
%O A372099 1,3
%A A372099 _Hugo Pfoertner_, Apr 25 2024

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE