A067253 Numbers n such that prime(n) = floor(n*log(n*omega(sigma(n)))).

5, 10, 17, 43, 57, 124, 1677, 1682, 1699, 1712, 2577, 2663, 2675, 32519, 32547, 32578, 33165, 33190, 33220, 33225, 444084, 444089, 444358, 444362, 444524, 444665, 445737, 446321, 447710, 447778, 450720, 450726, 451140, 451194, 451498, 453071

Offset

1,1

Links

Table of n, a(n) for n=1..36.

Mathematica

a = {}; For[n = 1, n < 10000, n++, If[Prime[n] == Floor[n* Log[n*Length[FactorInteger[DivisorSigma[1, n]]]]], AppendTo[a, n]]]; a (* Stefan Steinerberger, Jun 17 2007 *)

Crossrefs

Sequence in context: A215449 A174062 A020642 * A284703 A048822 A227753

Adjacent sequences: A067250 A067251 A067252 * A067254 A067255 A067256

Keyword

easy,nonn

Author

Benoit Cloitre, Feb 20 2002

Extensions

More terms from Stefan Steinerberger, Jun 17 2007

Status

approved