OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..39 (based on A050226 values)
EXAMPLE
10 is in sequence because k=5 divides the sum of tau(1) + tau(2) + tau(3) + tau(4) + tau(5) = 1+2+2+3+2 = 10.
MAPLE
with(numtheory);
A218464:=proc(q) local n; a:=0;
for n from 1 to q do a:=a+tau(n) if type(a/n, integer) then print(a); fi; od; end:
A218464 (10^10); # Paolo P. Lava, Mar 26 2013
MATHEMATICA
sm = 0; t = {}; Do[sm = sm + DivisorSigma[0, n]; If[Mod[sm, n] == 0, AppendTo[t, sm]], {n, 1000}]; t (* T. D. Noe, Mar 27 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Mar 26 2013
EXTENSIONS
a(22)-a(30) from Giovanni Resta, Mar 28 2013
STATUS
approved