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 A351436 #17 May 31 2023 15:39:20
%S A351436 0,1,1,3,1,2,1,7,5,2,1,4,1,2,3,15,1,10,1,4,3,2,1,8,9,2,19,4,1,6,1,31,
%T A351436 3,2,5,20,1,2,3,8,1,6,1,4,9,2,1,16,13,18,3,4,1,38,5,8,3,2,1,12,1,2,9,
%U A351436 63,5,6,1,4,3,10,1,40,1,2,27,4,7,6,1,16,65,2
%N A351436 a(n) = n - A351168(n).
%F A351436 a(n) = n * (1 - ((A006530(n) - 1)/A006530(n))^A071178).
%t A351436 a[n_] := n - Module[{f = FactorInteger[n]}, n*(1 - 1/f[[-1, 1]])^f[[-1, 2]]]; a[1] = 0; Table[a[n], {n, 2, 83}] (* _Robert P. P. McKone_, Feb 11 2022, from _Amiram Eldar_ in A351168 *)
%Y A351436 Cf. A351168, A006530 (largest prime factor), A071178 (exponent).
%K A351436 nonn
%O A351436 1,4
%A A351436 _Ben Polson_, Feb 11 2022