|
%I #9 Apr 09 2014 10:16:58
%S 1,2,6,6,10,13,17,43,59,69,85,85,103,123,147,128,185,171,246,192,259,
%T 224,356,328,400,358,373,498,497,496,787,443,886,664,560,795,770,839,
%U 945,993,981,866,1083,1010,1449,1173,1439,1400,1656,1389,1380,1526,1445
%N a(n) = sum of terms in n-th row of triangle A112599.
%e The 7th row of triangle A112599 is [6,1,3,1,2,1,3]. So a(7) = 6+1+3+1+2+1+3 = 17.
%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, {{1}}, 52] (* _Robert G. Wilson v_ *)
%Y Cf. A112599, A114719.
%K nonn
%O 1,2
%A _Leroy Quet_, Dec 27 2005
%E More terms from _Robert G. Wilson v_, Dec 28 2005
|
