OFFSET
1,2
PROG
(PARI) {a(n)=local(A=n, B=0, k=0); if(n==0, 1, until(A==B, k=k+1; if(k%(n+1)==0, k=k+1); B=A; A=floor(A*(k+1)/k)); 1+A)}
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Paul D. Hanna, Oct 14 2005
STATUS
approved