cp's OEIS Frontend

A326700 Denominator of the average position of a 1 in the reversed binary expansion of n.

%I A326700 #11 Oct 07 2019 19:58:09
%S A326700 1,1,2,1,1,2,1,1,2,1,3,2,3,1,2,1,1,2,3,1,1,3,4,2,3,3,1,1,4,2,1,1,2,1,
%T A326700 1,2,3,3,1,1,3,1,4,3,2,4,5,2,1,3,2,3,4,1,5,1,1,4,5,2,5,1,2,1,1,2,3,1,
%U A326700 3,1,4,2,1,3,2,3,4,1,5,1,3,3,4,1,1,4,5
%N A326700 Denominator of the average position of a 1 in the reversed binary expansion of n.
%C A326700 The sequence of fractions begins: 1, 2, 3/2, 3, 2, 5/2, 2, 4, 5/2, 3, 7/3, 7/2, 8/3, 3, 5/2, 5, 3, 7/2, 8/3, 4.
%C A326700 For example, the reversed binary expansion of 18 is (0,1,0,0,1), and the average of {2,5} is 7/2, so a(18) = 2.
%C A326700 a(n) divides A000120(n). - _Robert Israel_, Oct 07 2019
%H A326700 Robert Israel, <a href="/A326700/b326700.txt">Table of n, a(n) for n = 1..10000</a>
%p A326700 f:= proc(n) local L;
%p A326700   L:= convert(n,base,2);
%p A326700   L:= select(t -> L[t]=1, [$1..nops(L)]);
%p A326700   denom(convert(L,`+`)/nops(L))
%p A326700 end proc:
%p A326700 map(f, [$1..100]); # _Robert Israel_, Oct 07 2019
%t A326700 Table[Denominator[Mean[Join@@Position[Reverse[IntegerDigits[n,2]],1]]],{n,100}]
%Y A326700 Positions of 1's are A326669.
%Y A326700 Cf. A000120, A029931, A035327, A048793, A070939, A291166, A295235, A326674, A326699 (numerators).
%K A326700 nonn,frac
%O A326700 1,3
%A A326700 _Gus Wiseman_, Jul 20 2019