A355322 LCM of Lucas numbers {L(1), L(2), ..., L(n)}.

1, 3, 12, 84, 924, 2772, 80388, 3778236, 71786484, 2943245844, 585705922956, 13471236227988, 7018514074781748, 1972202455013671188, 61138276105423806828, 134932175364670341669396, 481842798227237790101413116, 154671538230943330622553610236

Offset

1,2

Links

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

Mathematica

Table[LCM @@ LucasL[Range[n]], {n, 1, 16}]
Module[{nn=20, ln}, ln=LucasL[Range[nn]]; Table[LCM@@Take[ln, n], {n, nn}]] (* Harvey P. Dale, Sep 26 2024 *)

Prog

(PARI) Lucas(n) = real((2 + quadgen(5)) * quadgen(5)^n); \\ A000032
a(n) = lcm(apply(Lucas, [1..n])); \\ Michel Marcus, Jul 17 2022
(Python)
from math import lcm
from sympy import lucas
def A355322(n): return lcm(*(lucas(i) for i in range(1, n+1))) # Chai Wah Wu, Jul 17 2022

Crossrefs

Cf. A000032, A035105 (LCM of Fibonacci numbers), essentially the same as A062954.

Sequence in context: A147835 A032183 A225905 * A070825 A232934 A077047

Adjacent sequences: A355319 A355320 A355321 * A355323 A355324 A355325

Keyword

nonn,easy

Author

Clark Kimberling, Jul 16 2022

Status

approved