login
A062954
Least common multiple of Lucas numbers L(0), L(1), ..., L(n).
3
2, 2, 6, 12, 84, 924, 2772, 80388, 3778236, 71786484, 2943245844, 585705922956, 13471236227988, 7018514074781748, 1972202455013671188, 61138276105423806828, 134932175364670341669396, 481842798227237790101413116, 154671538230943330622553610236
OFFSET
0,1
MATHEMATICA
Module[{nn=20, luc}, luc=LucasL[Range[0, nn]]; Rest[Table[LCM@@Take[luc, n], {n, nn}]]] (* Harvey P. Dale, Jun 29 2015 *)
PROG
(PARI) A000032(n) = fibonacci(n+1)+fibonacci(n-1)
a(n) = {v = 1; for (i=0, n, v = lcm(v, A000032(i)); ); return (v); } \\ Michel Marcus, Jul 22 2013
CROSSREFS
Sequence in context: A244656 A159322 A049313 * A049954 A049952 A019100
KEYWORD
easy,nonn
AUTHOR
Reiner Martin, Jul 21 2001
EXTENSIONS
a(0) and more terms from Sean A. Irvine, Apr 15 2023
STATUS
approved