login
A374232
Indices of records in A028832.
1
1, 2, 3, 14, 19, 46, 94, 151, 211, 379, 526, 694, 919, 1324, 1759, 2011, 2326, 3691, 4174, 5086, 6451, 7606, 8254, 10294, 10651, 13126, 17599, 18979, 19231, 21319, 30319, 31606, 32971, 34654, 42379, 46006, 48799, 58774, 76651, 78094, 82471, 85999, 90931, 101599
OFFSET
1,2
LINKS
MATHEMATICA
s[n_] := If[IntegerQ@ Sqrt[n], 0, Length @ DeleteDuplicates[ContinuedFraction[Sqrt[n]][[2]]]];
seq[kmax_] := Module[{smax = -1, s1, sq = {}}, Do[If[(s1 = s[k]) > smax, smax = s1; AppendTo[sq, k]], {k, 1, kmax}]; sq]; seq[10^5]
CROSSREFS
Sequence in context: A107083 A266694 A284928 * A294405 A160218 A208983
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 01 2024
STATUS
approved