OFFSET
1,1
COMMENTS
a(n) is roughly e^n*(e-1)/n. - Charles R Greathouse IV, Aug 20 2013
PROG
(PARI) a(nn) = my(lpn=1, lfn=1); for (i=2, nn, p = prime(i); fn = prime(p)\p; if (fn != lfn, print1(i - lpn, ", "); lfn = fn; lpn = i)) \\ Michel Marcus, Aug 16 2013
(PARI) a(n)=my(p=2, t=p, s, quot); forprime(q=2, , if(t--, next); quot=q\p; if(quot>=n, if(quot>n, return(s), s++)); t=nextprime(p+1)-p; p+=t) \\ Charles R Greathouse IV, Aug 20 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Tyler Carrico, Oct 31 2012
EXTENSIONS
a(13) from Michel Marcus, Aug 16 2013
a(14)-a(20) from Charles R Greathouse IV, Aug 20 2013
STATUS
approved