A355322 - OEIS

%I #26 Sep 26 2024 17:36:54

%S 1,3,12,84,924,2772,80388,3778236,71786484,2943245844,585705922956,

%T 13471236227988,7018514074781748,1972202455013671188,

%U 61138276105423806828,134932175364670341669396,481842798227237790101413116,154671538230943330622553610236

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

%t Table[LCM @@ LucasL[Range[n]], {n, 1, 16}]

%t Module[{nn=20,ln},ln=LucasL[Range[nn]];Table[LCM@@Take[ln,n],{n,nn}]] (* _Harvey P. Dale_, Sep 26 2024 *)

%o (PARI) Lucas(n) = real((2 + quadgen(5)) * quadgen(5)^n); \\ A000032

%o a(n) = lcm(apply(Lucas, [1..n])); \\ _Michel Marcus_, Jul 17 2022

%o (Python)

%o from math import lcm

%o from sympy import lucas

%o def A355322(n): return lcm(*(lucas(i) for i in range(1,n+1))) # _Chai Wah Wu_, Jul 17 2022

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

%K nonn,easy,changed

%O 1,2

%A _Clark Kimberling_, Jul 16 2022