OFFSET
1,2
COMMENTS
No further terms below 143260.
No further terms below 2*10^4. - Robert G. Wilson v
MATHEMATICA
Select[ Range[10^3], Length[ FactorInteger[ Binomial[2#, # ]]] == PrimePi[ # ] + DivisorSigma[0, # ] & ]
PROG
(PARI) for(n=1, 1000, if(omega(binomial(2*n, n))=sum(i=1, n, isprime(i))+numdiv(n), print1(n, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jun 09 2002
STATUS
approved