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

Links

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

Example

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.

Mathematica

Table[Apply[LCM, Last[ContinuedFraction[Sqrt[Part[t, u]]]]], {u, 1, 24}]

Crossrefs

Cf. A000961, A051451, A077636, A077637, A077638.

Sequence in context: A053686 A080198 A077637 * A039791 A275664 A349979

Adjacent sequences: A077636 A077637 A077638 * A077640 A077641 A077642

Keyword

nonn,changed

Author

Labos Elemer, Nov 13 2002

Status

approved