A069096 Numbers k such that the numerator of Sum_{d|k} 1/d > 3*k.

900, 3600, 8100, 14400, 17424, 22500, 32400, 57600, 69696, 72900, 90000, 108900, 129600, 166464, 202500, 230400, 260100, 278784, 291600, 345744, 360000, 374544, 435600, 476100, 518400, 562500, 656100, 665856, 685584, 756900, 810000, 921600

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..4000

Mathematica

Select[Range[10^6], Numerator @ DivisorSigma[-1, #] > 3*# &] (* Amiram Eldar, Feb 19 2021 *)

Prog

(PARI) isok(k) = numerator(sumdiv(k, d, 1/d)) > 3*k; \\ Michel Marcus, Feb 15 2021

Crossrefs

Cf. A017665, A069057.

Sequence in context: A287800 A246887 A232556 * A232557 A119541 A173486

Adjacent sequences: A069093 A069094 A069095 * A069097 A069098 A069099

Keyword

easy,nonn

Author

Benoit Cloitre, Apr 07 2002

Status

approved