|
Search: id:A025552
|
|
|
| A025552 |
|
LCM of {C(0,0), C(1,0), ..., C(n,[ n/2 ])}. |
|
+0
1
|
|
| 1, 1, 2, 6, 6, 30, 60, 420, 420, 1260, 1260, 13860, 13860, 180180, 360360, 360360, 360360, 6126120, 6126120, 116396280, 116396280, 116396280, 116396280, 2677114440, 2677114440, 13385572200, 13385572200, 40156716600, 40156716600, 1164544781400
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
FORMULA
|
Contribution from Peter Luschny (peter(AT)luschny.de), Jun 26 2009: (Start)
Let b(n) = 2 if n = 2^m or n = 2^m + 1 for some m, otherwise 1. Then
a(n) = lcm({1,2,...,n}) / b(n). (End)
|
|
MAPLE
|
Contribution from Peter Luschny (peter(AT)luschny.de), Jun 26 2009: (Start)
LCM := proc(n) option remember; if n < 2 then 1 else ilcm(n, LCM(n-1)) fi end;
a := proc(n) local i; add(i, i=convert(2*iquo(n+2, 2), base, 2)); `if`(%=1, LCM(n), LCM(n)/2) end: (End)
|
|
CROSSREFS
|
Cf. A003418. [From Peter Luschny (peter(AT)luschny.de), Jun 26 2009]
Sequence in context: A034386 A084343 A083907 this_sequence A060114 A033188 A093364
Adjacent sequences: A025549 A025550 A025551 this_sequence A025553 A025554 A025555
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Clark Kimberling (ck6(AT)evansville.edu)
|
|
EXTENSIONS
|
Offset corrected by Peter Luschny (peter(AT)luschny.de), Jun 26 2009
|
|
|
Search completed in 0.002 seconds
|
