A069057 Numbers k such that the numerator of Sum_{d|k} 1/d > 2k.

36, 100, 144, 324, 392, 400, 576, 784, 800, 900, 968, 1296, 1352, 1575, 1600, 1936, 2304, 2450, 2500, 2704, 2916, 3136, 3600, 3872, 4356, 4624, 5184, 5408, 5776, 6050, 6272, 6400, 7744, 8100, 8450, 8464, 9216, 9248, 10000, 10404, 10816, 11552, 11664

Offset

1,1

Comments

Many terms in the sequence are squares: 6^2,10^2,12^2,18^2,20^2,24^2,28^2,30^2,36^2,40^2,44^2,48^2,50^2...

Links

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

Mathematica

Select[Range[12000], Numerator[Total[1/Divisors@ #]] > 2 # &] (* Michael De Vlieger, May 04 2016 *)

Prog

(PARI) isok(n) = numerator(sigma(n)/n) > 2*n; \\ Michel Marcus, May 04 2016

Crossrefs

Cf. A017665.

Sequence in context: A131605 A296204 A063734 * A342402 A348826 A062703

Adjacent sequences: A069054 A069055 A069056 * A069058 A069059 A069060

Keyword

easy,nonn

Author

Benoit Cloitre, Apr 07 2002

Status

approved