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 A069167 #20 Jul 09 2022 11:09:34 %S A069167 1,2,4,6,8,9,10,12,16,18,24,32,36,42,44,48,50,54,64,72,81,90,96,100, %T A069167 108,114,126,128,144,150,162,184,192,198,200,216,234,250,252,256,288, %U A069167 294,324,378,384,396,400,432,441,450,484,486,504,512,550,558,576,588 %N A069167 Numbers k such that k*Sum_{d|k} 1/phi(d) is an integer. %H A069167 Amiram Eldar, <a href="/A069167/b069167.txt">Table of n, a(n) for n = 1..10000</a> %t A069167 Select[Range[600],IntegerQ[#(Total[1/(EulerPhi[Divisors[#]])])]&](* _Harvey P. Dale_, Dec 17 2018 *) %o A069167 (PARI) is(n)=denominator(sumdiv(n,d,1/eulerphi(d))*n)==1 \\ _Charles R Greathouse IV_, Oct 27 2015 %Y A069167 Cf. A000010. %K A069167 easy,nonn %O A069167 1,2 %A A069167 _Benoit Cloitre_, Apr 09 2002