|
%I #12 Oct 30 2017 17:57:20
%S 1,1,1,3,1,6,1,7,4,8,1,16,1,10,9,15,1,21,1,22,11,14,1,36,6,16,13,28,1,
%T 42,1,31,15,20,13,55,1,22,17,50,1,54,1,40,33,26,1,76,8,43,21,46,1,66,
%U 17,64,23,32,1,108,1,34,41,63,19,78,1,58,27,74,1,123,1,40,49,64,19,90,1,106
%N Row sums of triangle A027751.
%C Essentially the same as A001065, but with a(1)=1.
%C Note that if n is a noncomposite number then a(n)=1.
%H Antti Karttunen, <a href="/A173455/b173455.txt">Table of n, a(n) for n = 1..4096</a>
%t Array[Boole[# == 1] + DivisorSigma[1, #] - # &, 80] (* _Michael De Vlieger_, Oct 30 2017 *)
%o (PARI) a(n) = if (n==1, 1, sigma(n) - n); \\ _Michel Marcus_, Oct 30 2017
%Y Cf. A001065, A008578, A027751.
%K nonn
%O 1,4
%A _Omar E. Pol_, Nov 22 2010
|
