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 A062955 #19 Jul 11 2019 13:15:09
%S A062955 0,1,4,6,16,10,36,28,48,36,100,44,144,78,112,120,256,102,324,152,240,
%T A062955 210,484,184,480,300,468,324,784,232,900,496,640,528,816,420,1296,666,
%U A062955 912,624,1600,492,1764,860,1056,990,2116,752,2016,980,1600,1224,2704
%N A062955 a(n) = phi(n^2) - phi(n) = (n-1) * phi(n).
%H A062955 Harry J. Smith, <a href="/A062955/b062955.txt">Table of n, a(n) for n = 1..1000</a>
%F A062955 a(n) = A002618(n) - A000010(n). - _Michel Marcus_, Jun 28 2018
%t A062955 Table[EulerPhi[n^2]-EulerPhi[n],{n,60}] (* _Harvey P. Dale_, Aug 22 2012 *)
%o A062955 (PARI) a(n)=if(n<1,0,eulerphi(n^2)-eulerphi(n))
%o A062955 (PARI) { for (n=1, 1000, write("b062955.txt", n, " ", eulerphi(n^2) - eulerphi(n)) ) } \\ _Harry J. Smith_, Aug 14 2009
%Y A062955 Cf. A000010, A002618.
%K A062955 nonn
%O A062955 1,3
%A A062955 _Jason Earls_, Jul 22 2001