A062954 Least common multiple of Lucas numbers L(0), L(1), ..., L(n).
2, 2, 6, 12, 84, 924, 2772, 80388, 3778236, 71786484, 2943245844, 585705922956, 13471236227988, 7018514074781748, 1972202455013671188, 61138276105423806828, 134932175364670341669396, 481842798227237790101413116, 154671538230943330622553610236
Offset: 0
Programs
-
Mathematica
Module[{nn=20,luc},luc=LucasL[Range[0,nn]];Rest[Table[LCM@@Take[luc,n],{n,nn}]]] (* Harvey P. Dale, Jun 29 2015 *) -
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
Extensions
a(0) and more terms from Sean A. Irvine, Apr 15 2023