login

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

Integers equal to the least common multiple of the set of numbers generated by all the differences between their consecutive divisors, taken in increasing order.
1

%I #13 Jan 19 2018 09:20:07

%S 1,60,300,504,1500,1512,3528,3660,4536,7500,12240,13608,24696,36720,

%T 37500,40824,122472,172872,187500,208080,223260,367416,937500,1102248,

%U 1210104,3306744,3537360,4687500,8470728,9920232,12450312,13618860,23437500,29760696

%N Integers equal to the least common multiple of the set of numbers generated by all the differences between their consecutive divisors, taken in increasing order.

%C Subset of A060765.

%C Fixed points of A060766.

%C Many terms m > 1 have omega(m) = 3 or 4, 60 and 3660 being the smallest of both, respectively. Is there a term with omega(m) = 5? - _Michael De Vlieger_, Jan 13 2018

%C The first two terms with 5 prime divisors are 149829840 and 1348395120. The sequence is infinite since it contains all the numbers of the form 72*7^k, for k>0. - _Giovanni Resta_, Jan 15 2018

%H Giovanni Resta, <a href="/A298045/b298045.txt">Table of n, a(n) for n = 1..61</a> (terms < 1.5*10^11)

%e Divisors of 504 are 1, 2, 3, 4, 6, 7, 8, 9, 12, 14, 18, 21, 24, 28, 36, 42, 56, 63, 72, 84, 126, 168, 252 and 504.

%e Differences are: 2 - 1 = 1, 3 - 2 = 1, 4 - 3 = 1, 6 - 4 = 2, 7 - 6 = 1, 8 - 7 = 1, 9 - 8 = 1, 12 - 9 = 3, 14 - 12 = 2, 18 - 14 = 4, 21 - 18 = 3, 24 - 21 = 3, 28 - 24 = 4, 36 - 28 = 8, 42 - 36 = 6, 56 - 42 = 14, 63 - 56 = 7, 72 - 63 = 9, 84 - 72 = 12, 126 - 84 = 42, 168 - 126 = 42, 252 - 168 = 84, 504 - 252 = 252.

%e lcm(1, 2, 3, 4, 6, 7, 8, 9, 12, 14, 42, 84, 252) is 504 again.

%p with(numtheory): P:=proc(q) local a,k,n; for n from 1 to q do a:=sort([op(divisors(n))]);

%p if n=lcm(op([seq(a[k+1]-a[k],k=1..nops(a)-1)])) then print(n); fi; od; end: P(10^6);

%t {1}~Join~Select[Range[2, 10^6], LCM @@ Differences@ Divisors@ # == # &] (* _Michael De Vlieger_, Jan 13 2018 *)

%Y Cf. A060765, A060766.

%K nonn

%O 1,2

%A _Paolo P. Lava_, Jan 11 2018

%E More terms from _Michael De Vlieger_, Jan 13 2018

%E a(31)-a(34) from _Giovanni Resta_, Jan 15 2018