cp's OEIS Frontend

A359401 Nonnegative integers whose sum of positions of 1's in their binary expansion is greater than the sum of positions of 1's in their reversed binary expansion, where positions in a sequence are read starting with 1 from the left.

%I A359401 #8 Jan 07 2023 09:28:17
%S A359401 11,19,23,35,37,39,43,47,55,67,69,71,75,77,79,83,87,91,95,103,111,131,
%T A359401 133,134,135,137,139,141,142,143,147,149,151,155,157,158,159,163,167,
%U A359401 171,173,175,179,183,187,191,199,203,207,215,223,239,259,261,262,263
%N A359401 Nonnegative integers whose sum of positions of 1's in their binary expansion is greater than the sum of positions of 1's in their reversed binary expansion, where positions in a sequence are read starting with 1 from the left.
%C A359401 First differs from A161601 in having 134, with binary expansion (1,0,0,0,0,1,1,0), positions of 1's 1 + 6 + 7 = 14, reversed 2 + 3 + 8 = 13.
%F A359401 A230877(a(n)) > A029931(a(n)).
%t A359401 sap[q_]:=Sum[q[[i]]*(2i-Length[q]-1),{i,Length[q]}];
%t A359401 Select[Range[0,100],sap[IntegerDigits[#,2]]>0&]
%Y A359401 Indices of positive terms in A359495; indices of 0's are A359402.
%Y A359401 A030190 gives binary expansion, reverse A030308.
%Y A359401 A070939 counts binary digits.
%Y A359401 A230877 adds up positions of 1's in binary expansion, reverse A029931.
%Y A359401 A326669 lists numbers with integer mean position of a 1 in binary expansion.
%Y A359401 Cf. A000120, A048793, A051293, A053632, A222955, A231204, A291166, A304818, A326672, A326673, A359043.
%K A359401 nonn,base
%O A359401 1,1
%A A359401 _Gus Wiseman_, Jan 05 2023