A060766 Least common multiple of differences between consecutive divisors of n (ordered by size).
1, 2, 2, 4, 3, 6, 4, 6, 15, 10, 6, 12, 35, 10, 8, 16, 9, 18, 10, 28, 99, 22, 12, 20, 143, 18, 42, 28, 60, 30, 16, 88, 255, 28, 18, 36, 323, 130, 60, 40, 21, 42, 154, 60, 483, 46, 24, 42, 75, 238, 234, 52, 27, 132, 84, 304, 783, 58, 60, 60, 899, 84, 32, 104, 165, 66, 442
Offset: 2
Keywords
Examples
For n=98, divisors={1,2,7,14,49,98}; differences={1,5,7,35,49}; a(98) = LCM of differences = 245.
Links
- Harvey P. Dale, Table of n, a(n) for n = 2..1000
Crossrefs
Programs
-
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 *)
Formula
Extensions
Edited by Dean Hickerson, Jan 22 2002