A077639 LCM of terms in period of continued fraction expansion of square root of A051451(n), i.e., sqrt(lcm(1..x)) where x is a prime power from A000961.
1, 2, 4, 6, 14, 40, 56, 100, 2988, 13200, 805600, 1323000, 1744790520, 112326337200, 10154793943770044128560, 26773964343922343708160, 185027354760601080, 1418008957437634586640
Offset: 1
Keywords
Examples
For A051451(10) = 360360, the periodic part is P = {3,2,1,132,1,2,3,1200} with lcm(P)=13200 as LCM of terms, so a(10) = 13200.
Programs
-
Mathematica
Table[Apply[LCM, Last[ContinuedFraction[Sqrt[Part[t, u]]]]], {u, 1, 24}]