%I #14 Mar 11 2014 01:32:16
%S 0,1,0,2,1,1,3,2,3,2,4,2,2,2,4,5,0,5,0,5,0,6,3,3,3,0,3,3,7,5,0,5,6,0,
%T 6,5,8,4,4,4,3,4,5,4,4,9,2,8,2,8,1,9,2,8,1,10,4,8,4,10,2,10,4,8,4,10,
%U 11,0,11,0,7,0,11,0,11,0,11,0,12,6,6,6,6,6,5,6,6,6,1,6,6,13,2,2,2,12,2,13,2
%N Triangle where a(1,1) = 0, a(n,m) = number of terms of row (n-1) which are coprime to m.
%C GCD(m,0) is considered here to be m, so 0 is coprime to no positive integer but 1.
%H Diana Mecum, <a href="/A112592/b112592.txt">Table of n, a(n) for n = 1..2000</a> [From _Diana L. Mecum_, Aug 12 2008]
%e Row 6 of the triangle is [5,0,5,0,5,0]. Among these terms there are 6 terms coprime to 1, 3 terms coprime to 2, 3 terms coprime to 3, 3 terms coprime to 4, 0 terms coprime to 5, 3 terms coprime to 6 and 3 terms coprime to 7. So row 7 is [6,3,3,3,0,3,3].
%e 0,
%e 1,0,
%e 2,1,1,
%e 3,2,3,2,
%e 4,2,2,2,4,
%e 5,0,5,0,5,0,
%e 6,3,3,3,0,3,3,
%e 7,5,0,5,6,0,6,5,
%e 8,4,4,4,3,4,5,4,4
%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];]; Nest[f, {{0}}, 13] // Flatten (* _Robert G. Wilson v_ *)
%Y Cf. A112599.
%Y Row sums are in A114719. [From _Klaus Brockhaus_, Jun 01 2009]
%K nonn,tabl
%O 1,4
%A _Leroy Quet_, Dec 24 2005
%E More terms from _Robert G. Wilson v_, Dec 27 2005
%E Terms a(100) through a(2000) from _Diana L. Mecum_, Aug 12 2008