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 A340193 #8 Dec 31 2020 15:35:38
%S A340193 0,0,0,1,0,1,0,4,4,3,0,5,0,5,4,11,0,10,0,11,8,9,0,15,16,11,20,15,0,15,
%T A340193 0,26,16,15,20,25,0,17,20,29,0,25,0,29,24,21,0,37,36,38,28,33,0,43,36,
%U A340193 41,32,27,0,41,0,29,44,57,32,41,0,47,40,49,0,58,0,35,56,51,56,55,0,67,72,39,0,61,48,41,52,71,0,63,36
%N A340193 a(n) = n - (Sum_{d|n} A063994(d)).
%H A340193 Antti Karttunen, <a href="/A340193/b340193.txt">Table of n, a(n) for n = 1..8191</a>
%H A340193 Antti Karttunen, <a href="/A340193/a340193.txt">Data supplement: n, a(n) computed for n = 1..65537</a>
%F A340193 a(n) = n - A340192(n).
%F A340193 a(n) = Sum_{d|n} A318840(d).
%o A340193 (PARI)
%o A340193 A063994(n) = { my(f=factor(n)); prod(i=1, #f~, gcd(f[i, 1]-1, n-1)); };
%o A340193 A340193(n) = (n-sumdiv(n,d,A063994(d)));
%Y A340193 Inverse Möbius transform of A318840.
%Y A340193 Cf. A063994, A340192.
%Y A340193 Cf. also A051953.
%K A340193 nonn
%O A340193 1,8
%A A340193 _Antti Karttunen_, Dec 31 2020