A382175 Indices of records in A382173.

1, 2, 3, 5, 6, 10, 25, 30, 50, 98, 125, 150, 194, 206, 243, 250, 490, 554, 566, 625, 750, 1030, 1046, 1094, 1154, 1214, 1226, 1250, 2450, 2738, 2846, 2894, 2906, 3086, 3125, 3750, 4802, 5534, 5594, 5606, 5666, 5714, 5770, 5774, 5834, 5906, 5990, 6070, 6074, 6130

Offset: 1

Author

Amiram Eldar, Mar 17 2025

Keywords

• nonn
• base

Comments

Numbers k such that A382173(k) > A382173(m) for all m < k.

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, ... .

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.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..208
• Amiram Eldar, Table of n, a(n), A382173(a(n)) for n = 1..208

Crossrefs

Cf. A001175, A326612, A382172, A382173, A382174, A382176.

Programs

Mathematica

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 *)