|
| |
|
|
A025552
|
|
LCM of {C(0,0), C(1,0), ..., C(n,[ n/2 ])}.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A060114 A033188 A093364
Adjacent sequences: A025549 A025550 A025551 * 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
|
| |
|
|
