OFFSET
2,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 2..1000
FORMULA
EXAMPLE
For n=98, divisors={1,2,7,14,49,98}; differences={1,5,7,35,49}; a(98) = LCM of differences = 245.
MATHEMATICA
a[n_ ] := LCM@@(Drop[d=Divisors[n], 1]-Drop[d, -1])
Table[LCM@@Differences[Divisors[n]], {n, 2, 70}] (* Harvey P. Dale, Oct 08 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 24 2001
EXTENSIONS
Edited by Dean Hickerson, Jan 22 2002
STATUS
approved