|
%I #16 Jun 12 2016 21:28:48
%S 0,1,4,10,14,15,21,34,40,50,74,62,78,81,140,170,153,161,277,227,313,
%T 260,332,304,406,334,383,504,614,632,643,539,775,764,775,664,1003,974,
%U 1095,847,917,1144,1230,1140,1309,1203,1413,1265,1438,1698,1510,1035,1194
%N a(n) = sum of terms in n-th row of triangle A112592.
%e The 7th row of triangle A112592 is [6,3,3,3,0,3,3]. So a(7) = 6+3+3+3+0+3+3 = 21.
%t f[l_] := Block[{p, t}, p = l[[ -1]]; k = Length @ p; t = Table[Count[GCD[p, n], 1], {n, k + 1}]; Return @ Append[l, t];]; Plus @@@ Nest[f, {{0}}, 52] (* _Robert G. Wilson v_ *)
%Y Cf. A112592, A114718.
%K nonn
%O 1,3
%A _Leroy Quet_, Dec 27 2005
%E More terms from _Robert G. Wilson v_, Dec 28 2005
%E Typos in Mma program corrected by _Giovanni Resta_, Jun 12 2016
|
