A068547 Numbers m such that m*tau(m)>5*prime(m).

2520, 3360, 3780, 3960, 4200, 4320, 5040, 6300, 6720, 7200, 7560, 7920, 8400, 8640, 8820, 9240, 9360, 9900, 10080, 10560, 10800, 10920, 11088, 11340, 11520, 11700, 11760, 11880, 12096, 12240, 12480, 12600, 12960, 13104, 13200, 13440, 13680

Offset: 1

Author

Benoit Cloitre, Mar 22 2002

Keywords

• easy
• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001750, A038040.

Cf. A068544, A068545, A068546.

Programs

Maple

R:= NULL: count:= 0: p:= 0:
for n from 1 while count < 100 do
  p:= nextprime(p);
  if n * numtheory:-tau(n) > 5 * p then R:= R,n; count:= count+1;  fi;
od:
R; # Robert Israel, May 13 2025

Mathematica

Select[Range[15000],# DivisorSigma[0,#]>5 Prime[#]&] (* Harvey P. Dale, Jul 17 2023 *)