A374232 - OEIS

%I #7 Jul 02 2024 02:43:01

%S 1,2,3,14,19,46,94,151,211,379,526,694,919,1324,1759,2011,2326,3691,

%T 4174,5086,6451,7606,8254,10294,10651,13126,17599,18979,19231,21319,

%U 30319,31606,32971,34654,42379,46006,48799,58774,76651,78094,82471,85999,90931,101599

%N Indices of records in A028832.

%H Amiram Eldar, <a href="/A374232/b374232.txt">Table of n, a(n) for n = 1..100</a>

%t s[n_] := If[IntegerQ@ Sqrt[n], 0, Length @ DeleteDuplicates[ContinuedFraction[Sqrt[n]][[2]]]];

%t 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]

%Y Cf. A013645, A028832.

%K nonn

%O 1,2

%A _Amiram Eldar_, Jul 01 2024