|
|
A093627
|
|
a(n) = lcm(1,2,3,...,n) * (sum of Farey fractions of order n).
|
|
0
|
|
|
1, 3, 15, 42, 330, 390, 3990, 9660, 36540, 41580, 595980, 651420, 10630620, 11711700, 13153140, 29189160, 594233640, 630990360, 14083949880, 15015120120, 16411875480, 17575838280, 463140798120, 484557713640, 2690500012200
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Farey[n_] := Union[ Flatten[ Join[{0}, Table[a/b, {b, n}, {a, b}]]]]; Table[LCM @@ Range[n] Plus @@ Farey[n], {n, 26}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|