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 A147570 #12 Sep 08 2022 08:45:38
%S A147570 1,1,2,2,4,6,8,8,24,12,24,24,24,48,48,48,72,48,120,80,72,192,180,96,
%T A147570 144,180,240,144,192,240,336,192,288,720,480,360,720,720,480,720,720,
%U A147570 720,672,672,576,720,960,1440,1872,1680,960,1120,1848,2016,1440,1728,1440
%N A147570 a(n) = phi(A020492(n)).
%H A147570 Amiram Eldar, <a href="/A147570/b147570.txt">Table of n, a(n) for n = 1..10000</a> (calculated from the b-file at A020492)
%e A147570 a(5) = phi(A020492(5)) = phi(12) = 4.
%o A147570 (Magma) [ a: n in [1..3500] | SumOfDivisors(n) mod a eq 0 where a is EulerPhi(n) ]; // _Klaus Brockhaus_, Nov 09 2008
%o A147570 (PARI) {for(n=1, 5000, a=eulerphi(n); if(sigma(n)%a==0, print1(a, ",")))} \\ _Klaus Brockhaus_, Nov 09 2008
%Y A147570 Cf. A000010 (Euler totient function phi(n)), A000203 (sigma(n), sum of divisors of n), A020492 (balanced numbers, numbers n such that phi(n) divides sigma(n)), A023897 (sigma(n) / phi(n) for balanced numbers), A147569.
%K A147570 easy,nonn
%O A147570 1,3
%A A147570 _Enoch Haga_, Nov 07 2008
%E A147570 Edited by _Klaus Brockhaus_, Nov 09 2008