%I #14 Mar 08 2020 04:14:12
%S 0,1,5,7,19,11,41,31,53,39,109,47,155,83,119,127,271,107,341,159,251,
%T 219,505,191,499,311,485,335,811,239,929,511,659,543,839,431,1331,683,
%U 935,639,1639,503,1805,879,1079,1011,2161,767,2057,999
%N a(n) = n*phi(n) - 1.
%t Table[n*EulerPhi[n],{n,50}]-1 (* _Harvey P. Dale_, Mar 25 2015 *)
%o (PARI) a(n) = n*eulerphi(n) - 1; \\ _Michel Marcus_, Mar 08 2020
%Y Cf. A002618, A046152.
%K nonn
%O 1,3
%A _N. J. A. Sloane_
|