|
|
A083548
|
|
Least common multiple of cototient values of consecutive integers.
|
|
2
|
|
|
0, 1, 2, 2, 4, 4, 4, 12, 6, 6, 8, 8, 8, 56, 56, 8, 12, 12, 12, 36, 36, 12, 16, 80, 70, 126, 144, 16, 22, 22, 16, 208, 234, 198, 264, 24, 20, 60, 120, 24, 30, 30, 24, 168, 168, 24, 32, 224, 210, 570, 532, 28, 36, 180, 480, 672, 210, 30, 44, 44, 32, 864, 864, 544, 782, 46, 36
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
f[x_] := x-EulerPhi[x] Table[LCM[f[w+1], f[w]], {w, 1, b}]
LCM@@#&/@Partition[Table[n-EulerPhi[n], {n, 70}], 2, 1] (* Harvey P. Dale, Feb 01 2015 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|