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,1

Links

Table of n, a(n) for n=0..18.

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

Cf. A000032, A035105.

Sequence in context: A244656 A159322 A049313 * A049954 A049952 A019100

Adjacent sequences: A062951 A062952 A062953 * A062955 A062956 A062957

Keyword

easy,nonn

Author

Reiner Martin, Jul 21 2001

Extensions

a(0) and more terms from Sean A. Irvine, Apr 15 2023

Status

approved