|
|
A031741
|
|
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 63.
|
|
1
|
|
|
3971, 15880, 35727, 63512, 99235, 142896, 194495, 254032, 321507, 396920, 480271, 571560, 670787, 777952, 893055, 1016096, 1147075, 1285992, 1432847, 1587640, 1750371, 1921040, 2099647, 2286192, 2480675, 2683096, 2893455, 3111752, 3337987
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
ltcfQ[n_]:=Module[{sr=Sqrt[n]}, If[IntegerQ[sr], False, Min[ ContinuedFraction[ sr][[2]]]==63]]; Select[Range[3400000], ltcfQ] (* Harvey P. Dale, Oct 08 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|