OFFSET
1,2
COMMENTS
PROG
(PARI) {a(n)=local(A=n, B=0, k=0); if(n<1, 0, until(A==B, k=k+1; if(k%n==0, k=k+1); B=A; A=floor(A*(k+1)/k)); A/n)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Oct 14 2005
EXTENSIONS
More terms from David Wasserman, Jun 30 2009
STATUS
approved