

A049010


Mean divisor of n differs by <= 1 from mean divisor of all numbers from 1 to n1.


1



2, 3, 4, 6, 360, 420, 480, 504, 630, 1400, 1540, 1760, 1820, 2912, 4440, 4464, 6888, 7150, 8856, 9920, 10290, 14805, 18330, 23058, 30784, 31725, 42822, 50864, 52338, 58653, 81627, 96186, 114513, 117819, 161253, 192104, 244970, 365180, 560014, 638480, 785148
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



EXAMPLE

At 161253, 10920.010919.87+=0.127+, which is a difference of <1.


MATHEMATICA

t = {1, 1}; seq = {}; Do[s = DivisorSigma[#, n] & /@ {0, 1}; If[Abs[s[[2]]/s[[1]]  t[[2]]/t[[1]]] <= 1, AppendTo[seq, n]]; t += s, {n, 2, 162000}]; seq (* Amiram Eldar, Sep 06 2019 *)


CROSSREFS



KEYWORD

easy,nonn


AUTHOR



EXTENSIONS

a(1) corrected and more terms added by Amiram Eldar, Sep 06 2019


STATUS

approved



