A381241 Records in A381096.

0, 3, 5, 6, 7, 10, 11, 13, 14, 21, 29, 33, 42, 45, 53, 58, 64, 69, 77, 85, 88, 90, 93, 108, 117, 128, 136, 138, 161, 172, 176, 181, 195, 208, 216, 249, 258, 267, 293, 322, 326, 341, 347, 354, 381, 390, 401, 425, 434, 484, 498, 513, 521, 547, 586, 590, 645, 652

Offset: 1

Author

Michael De Vlieger, Feb 24 2025

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..1782

Crossrefs

Cf. A381096, A381240.

Programs

Mathematica

rad[x_] := Times @@ FactorInteger[x][[All, 1]]; nn = Length[s];
r = 0; nn = 2^10; f[x_] := x - EulerPhi[x] - DivisorSigma[0, x/rad[x]]; {0}~Join~Reap[Do[If[# > r, r = #; Sow[#]] &[f[n]], {n, nn}]][[-1, -1]]