A122191 Triangle read by rows: T(n,m) = number of positive divisors of m that are coprime to n.

1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 3, 1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 3, 2, 4, 1, 1, 1, 2, 1, 2, 2, 2, 1, 1, 2, 1, 3, 2, 2, 2, 4, 1, 1, 1, 2, 1, 1, 2, 2, 1, 3, 1, 1, 2, 2, 3, 2, 4, 2, 4, 3, 4, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 3, 2, 4, 2, 4, 3, 4, 2, 6, 1, 1, 1, 2, 1, 2, 2, 1, 1, 3, 2, 2, 2, 2, 1

Offset: 1

Author

Leroy Quet, Aug 24 2006

Keywords

• nonn
• tabl

Crossrefs

Cf. A116477.

Programs

Mathematica

Flatten@Table[ Count[GCD[Divisors[m], n], 1], {n, 14}, {m, n}] (* Ray Chandler, Aug 29 2006 *)

PARI

A122191(n,m) = {local(s);s=0;fordiv(m,d,s=s+(gcd(d,n)==1));s} \\ Michael B. Porter, Mar 01 2010

Extensions

Extended by Ray Chandler, Aug 29 2006