A383545 Record values in A383543.

2, 3, 7, 15, 23, 43, 46, 49, 75, 106, 117, 118, 127, 150, 165, 167, 178, 251, 282, 286, 288, 368, 394, 513, 560, 762, 842, 992, 1154, 1214, 1264, 1269, 1313, 1350, 1376, 1414, 1471, 1518, 1592, 1816, 1851, 1940, 1946, 2017, 2101, 2117, 2122, 2159, 2191, 2244, 2393

Offset

1,1

Links

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

Formula

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

Crossrefs

Cf. A071808, A383543, A383544 (indices of records), A383548.

Sequence in context: A276600 A276047 A209658 * A098763 A001276 A006884

Adjacent sequences: A383542 A383543 A383544 * A383546 A383547 A383548

Keyword

nonn

Author

Amiram Eldar, Apr 30 2025

Extensions

a(27)-a(38) from David A. Corneth, Apr 30 2025

a(39)-a(51) from Jinyuan Wang, May 01 2025

Status

approved