|
|
|
|
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, 125, 125, 180, 180, 182, 182, 307, 320, 320, 320, 320, 320, 365, 365, 365, 365, 390, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,8
|
|
LINKS
|
|
|
EXAMPLE
|
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.
|
|
MATHEMATICA
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|