OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MATHEMATICA
LCM@@EulerPhi[#]&/@Partition[Range[100], 2, 1] (* Harvey P. Dale, May 07 2011 *)
PROG
(PARI) { for (n=1, 1000, write("b066813.txt", n, " ", lcm(eulerphi(n), eulerphi(n+1))) ) } \\ Harry J. Smith, Mar 29 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 20 2002
STATUS
approved