|
%I #31 Jan 01 2023 04:27:20
%S 3,3,6,6,12,6,18,12,18,12,30,12,36,18,24,24,48,18,54,24,36,30,66,24,
%T 60,36,54,36,84,24,90,48,60,48,72,36,108,54,72,48,120,36,126,60,72,66,
%U 138,48,126,60,96,72,156,54,120,72,108,84,174,48,180,90,108,96,144,60,198,96,132,72,210,72,216,108
%N a(n) = 3*phi(n), where phi (A000010) is the Euler totient function.
%H Vincenzo Librandi, <a href="/A200905/b200905.txt">Table of n, a(n) for n = 1..1000</a>
%H M. Picquet, <a href="http://gallica.bnf.fr/ark:/12148/bpt6k433703n/f35.image">Applications de la représentation des courbes du troisième degré</a>, Journal de l'École Polytechnique, Paris, 35 (1884), 31-100. See p. 98.
%t Table[3 EulerPhi[n], {n, 100}] (* _Vincenzo Librandi_, Mar 05 2013 *)
%o (PARI) a(n)=3*eulerphi(n) \\ _Charles R Greathouse IV_, Mar 05 2013
%o (Magma) [3*EulerPhi(n): n in [1..100]]; // _Vincenzo Librandi_, Mar 05 2013
%Y Cf. A000010 (phi).
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Nov 23 2011
|
