|
%I #13 Dec 25 2015 00:22:58
%S 1,2,2,4,4,6,12,12,12,20,20,12,12,24,8,16,48,18,72,24,60,110,88,40,60,
%T 36,36,84,56,120,240,80,80,48,24,36,36,72,48,80,120,84,420,120,264,
%U 506,368,336,420,160,96,312,468,360,120,72,252,812,464,240,60,180,288,96
%N a(n) = lcm(phi(n), phi(n+1)).
%H Harry J. Smith, <a href="/A066813/b066813.txt">Table of n, a(n) for n = 1..1000</a>
%t LCM@@EulerPhi[#]&/@Partition[Range[100],2,1] (* _Harvey P. Dale_, May 07 2011 *)
%o (PARI) { for (n=1, 1000, write("b066813.txt", n, " ", lcm(eulerphi(n), eulerphi(n+1))) ) } \\ _Harry J. Smith_, Mar 29 2010
%K nonn
%O 1,2
%A _Benoit Cloitre_, Jan 20 2002
|
