login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

a(n) = lcm(phi(n), phi(n+1)).
5

%I #17 Dec 11 2024 15:04:04

%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) a(n) = { lcm(eulerphi(n), eulerphi(n+1)) } \\ _Harry J. Smith_, Mar 29 2010

%K nonn

%O 1,2

%A _Benoit Cloitre_, Jan 20 2002