This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A381241 #9 Jun 27 2025 08:35:10
%S A381241 0,3,5,6,7,10,11,13,14,21,29,33,42,45,53,58,64,69,77,85,88,90,93,108,
%T A381241 117,128,136,138,161,172,176,181,195,208,216,249,258,267,293,322,326,
%U A381241 341,347,354,381,390,401,425,434,484,498,513,521,547,586,590,645,652
%N A381241 Records in A381096.
%H A381241 Michael De Vlieger, <a href="/A381241/b381241.txt">Table of n, a(n) for n = 1..1782</a>
%t A381241 rad[x_] := Times @@ FactorInteger[x][[All, 1]]; nn = Length[s];
%t A381241 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]]
%Y A381241 Cf. A381096, A381240.
%K A381241 nonn
%O A381241 1,2
%A A381241 _Michael De Vlieger_, Feb 24 2025