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 A329153 #11 Feb 26 2020 00:30:11 %S A329153 0,1,3,6,10,3,9,16,24,10,20,9,21,9,24,39,55,24,42,21,21,20,42,23,47, %T A329153 21,47,42,70,24,54,85,41,55,47,47,83,42,47,70,110,21,63,54,117,42,88, %U A329153 54,102,47,117,83,135,47,110,63,83,70,128,47,107,54,102,165,102 %N A329153 Sum of the iterated unitary totient function (A047994). %C A329153 Analogous to A092693 with the unitary totient function uphi instead of the Euler totient function phi (A000010). %H A329153 Amiram Eldar, <a href="/A329153/b329153.txt">Table of n, a(n) for n = 1..10000</a> %F A329153 a(n) = n for n in A286067. %e A329153 a(4) = uphi(4) + uphi(uphi(4)) + uphi(uphi(uphi(4))) = 3 + 2 + 1 = 6. %t A329153 uphi[1] = 1; uphi[n_] := Times @@ (-1 + Power @@@ FactorInteger[n]); Table[Plus @@ FixedPointList[uphi, n] - n - 1, {n, 1, 100}] %Y A329153 Cf. A003271, A047994, A049865, A092693, A225172, A225173, A286067. %K A329153 nonn %O A329153 1,3 %A A329153 _Amiram Eldar_, Feb 25 2020