OFFSET
1,1
COMMENTS
PROG
(PARI) v=[]; u1=1; for(n=2, 1000, u2=u1+lcm(n, u1); r=u1; u1=u2; if(u2/r-1>1, v=concat(v, [u2/r-1]); )); w=vecsort(v); a(n)=w[n];
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 08 2013
STATUS
approved