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

1, 2, 4, 6, 12, 24, 120, 150, 240, 300, 840, 1680, 2730, 6090, 32340, 106260, 145530, 154770, 1554630, 1861860, 2072070, 2642640, 5105100, 28918890, 77507430, 99549450, 717777060, 3714981270, 5577321750, 6692786100, 95929934100, 188736568020, 512444322390, 1348596399150

Offset

1,2

Comments

Indices of records in A383546.

The distinct terms of A071809.

Links

Table of n, a(n) for n=1..34.

Formula

A383546(a(n)) = A383548(n).

Mathematica

f[n_] := Module[{k = 1, s = n-1}, While[SquareFreeQ[s], s += n; k++]; k-1]; seq[lim_] := Module[{s = {}, fm = -1, fi}, Do[fi = f[i]; If[fi > fm, fm = fi; AppendTo[s, i]], {i, 1, lim}]; s]; seq[10^4]

Prog

(PARI) f(n) = {my(k = 1, s = n-1); while(issquarefree(s), s += n; k++); k-1; }
list(lim) = my(fm = -1, fi); for(i = 1, lim, fi = f(i); if(fi > fm, fm = fi; print1(i, ", ")));

Crossrefs

Cf. A071809, A383544, A383546, A383548 (record values).

Sequence in context: A087997 A355699 A340638 * A177905 A118405 A332345

Adjacent sequences: A383544 A383545 A383546 * A383548 A383549 A383550

Keyword

nonn

Author

Amiram Eldar, Apr 30 2025

Extensions

More terms from Jinyuan Wang, May 01 2025

Status

approved