OFFSET
1,2
COMMENTS
FORMULA
Lim_{n->infinity} a(n+1)/a(n) = e. - Robert Gerbicz, May 09 2008
MATHEMATICA
a = b = k = 1; Do[ While[a = a*Prime[k]; b = b*(Prime[k] + 1); b < n*a, k++ ]; Print[k]; k++, {n, 1, 16}]
PROG
(PARI) a(n)=if(n<0, 0, s=1; while(prod(i=1, s, prime(i)+1)<prod(i=1, s, prime(i))*n, s++); s);
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Benoit Cloitre, Aug 14 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Aug 20 2002
6 more terms from Robert Gerbicz, May 09 2008
STATUS
approved