A374232 - OEIS

A374232

Indices of records in A028832.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..100

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

Cf. A013645, A028832.

Sequence in context: A107083 A266694 A284928 * A294405 A160218 A208983

Adjacent sequences: A374229 A374230 A374231 * A374233 A374234 A374235

KEYWORD

nonn

AUTHOR

Amiram Eldar, Jul 01 2024

STATUS

approved