[go: up one dir, main page]

login
A068546
Numbers n such that n*tau(n)>4*prime(n).
0
840, 1260, 1440, 1680, 1800, 1980, 2016, 2100, 2160, 2340, 2400, 2520, 2640, 2700, 2880, 3024, 3120, 3240, 3360, 3600, 3696, 3780, 3960, 4032, 4080, 4200, 4320, 4368, 4536, 4560, 4620, 4680, 4752, 4800, 5040, 5280, 5400, 5460, 5520, 5544, 5616, 5670
OFFSET
1,1
MATHEMATICA
Select[Range[6000], # DivisorSigma[0, #]>4 Prime[#]&] (* Harvey P. Dale, Sep 12 2020 *)
CROSSREFS
Sequence in context: A175742 A102793 A144770 * A033269 A272595 A179670
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 22 2002
STATUS
approved