login
Row sums of triangle in A081720.
1

%I #9 Nov 02 2017 12:02:51

%S 1,4,15,83,561,6332,88086,1561008,31966485,746278033,19441692751,

%T 559268543516,17599832876941,601468320356528,22182618618501188,

%U 878172760660077348,37144096971415045713,1671734397769302244110,79770632874353931073165,4022719642533206402716726

%N Row sums of triangle in A081720.

%t t[n_, k_] := (For[t1 = 0; d = 1, d <= n, d++, If[Mod[n, d] == 0, t1 = t1 + EulerPhi[d]*k^(n/d)]]; If[EvenQ[n], (t1 + (n/2)*(1+k)*k^(n/2))/(2*n), (t1 + n*k^((n+1)/2))/(2*n)]); a[n_] := Sum[t[n, k], {k, 1, n}]; Array[a, 20] (* _Jean-François Alcover_, Nov 02 2017, after Maple code for A081720 *)

%K nonn

%O 1,2

%A _N. J. A. Sloane_, based on information supplied by _Gary W. Adamson_, Apr 05 2003