OFFSET
1,4
COMMENTS
GCD(m,0) is considered here to be m, so 0 is coprime to no positive integer but 1.
LINKS
Ivan Neretin, Rows n = 1..101, flattened
EXAMPLE
Row 6 of the triangle is [5,0,4,0,4,0]. Among these terms there are 6 terms coprime to 1, 1 term coprime to 2, 3 terms coprime to 3, 1 term coprime to 4, 2 terms coprime to 5, 1 term coprime to 6 and 3 terms coprime to 7. So row 7 is [6,1,3,1,2,1,3].
1
1 1
2 2 2
3 0 3 0
4 2 0 2 2
5 0 4 0 4 0
6 1 3 1 2 1 3
7 5 4 5 7 3 7 5
8 7 7 7 5 6 5 7 7
9 7 8 7 7 7 4 7 8 5
MATHEMATICA
f[l_] := Block[{p, t}, p = l[[ -1]]; k = Length[p]; t = Table[ Sum[ If[GCD[p[[j]], n] == 1, 1, 0], {j, k}], {n, k + 1}]; Return[Append[l, t]]; ]; Flatten[Nest[f, {{1}}, 13]] (* Ray Chandler, Dec 24 2005 *)
CROSSREFS
AUTHOR
Leroy Quet, Dec 21 2005
EXTENSIONS
Extended by Ray Chandler, Dec 24 2005
STATUS
approved