This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A382175 #8 Mar 19 2025 09:03:45
%S A382175 1,2,3,5,6,10,25,30,50,98,125,150,194,206,243,250,490,554,566,625,750,
%T A382175 1030,1046,1094,1154,1214,1226,1250,2450,2738,2846,2894,2906,3086,
%U A382175 3125,3750,4802,5534,5594,5606,5666,5714,5770,5774,5834,5906,5990,6070,6074,6130
%N A382175 Indices of records in A382173.
%C A382175 Numbers k such that A382173(k) > A382173(m) for all m < k.
%C A382175 Differs from A326612 by having the terms 194, 554, 5774, 6074, 14474, 15434, 29534, 30374, ..., and not having the terms 590, 2830, 14390, 14470, 14486, 14530, 27446, ... .
%C A382175 Note that A326612 is the sequence of the indices of records A001175 which is the row lengths of A382172, while A382173 is the sequence of the row sums.
%H A382175 Amiram Eldar, <a href="/A382175/b382175.txt">Table of n, a(n) for n = 1..208</a>
%H A382175 Amiram Eldar, <a href="/A382175/a382175.txt">Table of n, a(n), A382173(a(n)) for n = 1..208</a>
%t A382175 seq[lim_] := Module[{f, fm = -1, s = {}}, Do[f = Total[RealDigits[1/i, GoldenRatio, A001175[i], -1][[1]]]; If[f > fm, fm = f; AppendTo[s, i]], {i, 1, lim}]; s]; seq[1000] (* using A001175[n] from A001175 *)
%Y A382175 Cf. A001175, A326612, A382172, A382173, A382174, A382176.
%K A382175 nonn,base
%O A382175 1,2
%A A382175 _Amiram Eldar_, Mar 17 2025