1,2

Table of n, a(n) for n=1..80.

A152864 := proc(n) 2*n-numtheory[sigma](n)+numtheory[tau](n)-1 ; end: A152984 := proc(n) abs(A152864(n)) ; end: for n from 1 to 120 do printf("%d, ", A152984(n)) ; od: # R. J. Mathar, Jan 22 2009

Cf. A152864.

Sequence in context: A066858 A333496 A152864 * A177980 A215405 A064921

Adjacent sequences: A152981 A152982 A152983 * A152985 A152986 A152987

nonn

Omar E. Pol, Dec 19 2008

Few more terms from R. J. Mathar, Jan 22 2009

approved