A383548 Record values in A383546.

0, 4, 6, 20, 22, 23, 28, 32, 38, 39, 68, 94, 104, 117, 129, 135, 151, 163, 167, 213, 235, 270, 275, 277, 283, 356, 416, 445, 453, 533, 586, 639, 784, 803, 836, 1073, 1223, 1252, 1313, 1314, 1508, 1549, 1558, 1559, 1599, 1605, 1631, 1644, 1676, 1692, 1694, 1738, 1834

Offset

1,2

Links

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

Formula

a(n) = A383546(A383547(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, fi]], {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(fi, ", ")));

Crossrefs

Cf. A071808, A383545, A383546, A383547 (indices of records).

Sequence in context: A354204 A123169 A205955 * A023863 A024480 A066193

Adjacent sequences: A383545 A383546 A383547 * A383549 A383550 A383551

Keyword

nonn

Author

Amiram Eldar, Apr 30 2025

Extensions

More terms from Jinyuan Wang, May 01 2025

Status

approved