|
Search: id:A077636
|
|
|
| A077636 |
|
Length of periodic part of continued fraction expansion of square root of A051451(n), i.e. Sqrt[LCM(1,..,x)] where x is a prime power from A000961. |
|
+0
4
|
|
| 0, 1, 2, 2, 4, 2, 2, 2, 4, 8, 18, 14, 36, 38, 232, 268, 110, 280, 4348, 3244, 32684, 148184, 207616, 9988, 1946132, 2154482, 13319736, 8971624, 12345748, 69705504
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
EXAMPLE
|
For A051451(10)=360360, the period is {3,2,1,132,1,2,3,1200} with 8 terms, so a[10]=8.
|
|
MATHEMATICA
|
pp = Join[{1}, Select[Range[2, 50], Mod[ #, # - EulerPhi[ # ]] == 0 &]]; Table[ Length[ Last[ ContinuedFraction[ Sqrt[ Apply[ LCM, Table[i, {i, 1, pp[[n]]}]]]]]], {n, 1, 31}]
|
|
CROSSREFS
|
Cf. A000961, A051451.
Sequence in context: A094818 A114233 A063086 this_sequence A057000 A090047 A088200
Adjacent sequences: A077633 A077634 A077635 this_sequence A077637 A077638 A077639
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Nov 13 2002
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 14 2002
|
|
|
Search completed in 0.002 seconds
|
