|
%I #18 Dec 22 2016 23:19:57
%S 0,0,0,0,0,0,0,9,11,14,14,23,23,42,42,42,46,79,79,48,48,48,48,95,95,
%T 125,125,180,180,182,182,307,320,320,320,320,320,365,365,365,365,390,
%U 390,451,451,451,451,360,360,564,564,564,564,582,582,582,582,582,582,745,745,804,804,804,822,822,822,866
%N a(n) = A049502(A003418(n)).
%H Indranil Ghosh, <a href="/A279519/b279519.txt">Table of n, a(n) for n = 0..10000</a>
%H Indranil Ghosh, <a href="/A279519/a279519.txt">Python Program to generate the sequence</a>
%e For n=10, the LCM of all the numbers from 1 to 10 is 2520 = 100111011000_2, whose major index (2nd definition) is 14, so a(10)=14.
%t Map[Total@ SequencePosition[Reverse@ #, {1, 0}][[All, 1]] &@ IntegerDigits[#, 2] &, {1}~Join~Table[LCM @@ Range@ n, {n, 67}]] (* _Michael De Vlieger_, Dec 16 2016, Version 10.1 *)
%Y Cf. A003418, A049502.
%K nonn,base
%O 0,8
%A _Indranil Ghosh_, Dec 14 2016
|
