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,2

Links

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

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]]

Crossrefs

Cf. A381096, A381240.

Sequence in context: A304452 A292763 A176175 * A157201 A067351 A067350

Adjacent sequences: A381238 A381239 A381240 * A381242 A381243 A381244

Keyword

nonn

Author

Michael De Vlieger, Feb 24 2025

Status

approved