|
%I #8 Aug 06 2017 21:05:15
%S 1,2,3,3,5,3,7,4,7,5,11,1,13,7,9,5,17,2,19,3,13,11,23,5,21,13,17,5,29,
%T 5,31,6,21,17,25,11,37,19,25,3,41,5,43,9,17,23,47,19,43,12,33,11,53,5,
%U 41,1,37,29,59,37,61,31,27,7,49,5,67,15,45,3,71,40,73,37,31,17,61,5,79,17
%N Absolute values of A152864.
%p 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
%Y Cf. A152864.
%K nonn
%O 1,2
%A _Omar E. Pol_, Dec 19 2008
%E Few more terms from _R. J. Mathar_, Jan 22 2009
|
