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

1, 2, 10, 18, 126, 270, 1470, 1890, 2310, 7770, 23100, 28980, 307230, 325710, 392700, 1178100, 1501500, 2192190, 3393390, 10180170, 19399380, 29099070, 38798760, 310390080, 1338557220, 33910116240, 601681470390, 20056049013000, 198755445718830, 497390015522400, 3579804188330370

Offset

1,2

Comments

Indices of records in A383543.

The distinct terms of A071808.

Links

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

Formula

A383543(a(n)) = A383545(n).

Mathematica

f[n_] := Module[{k = 0, s = 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 = 0, s = 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. A071808, A383543, A383545 (record values), A383547.

Sequence in context: A317714 A055260 A254059 * A346551 A180591 A330083

Adjacent sequences: A383541 A383542 A383543 * A383545 A383546 A383547

Keyword

nonn

Author

Amiram Eldar, Apr 30 2025

Extensions

More terms from David A. Corneth, Apr 30 2025

Status

approved