OFFSET
1,5
MATHEMATICA
Flatten@Table[ Count[GCD[Divisors[m], n], 1], {n, 14}, {m, n}] (* Ray Chandler, Aug 29 2006 *)
PROG
(PARI) A122191(n, m) = {local(s); s=0; fordiv(m, d, s=s+(gcd(d, n)==1)); s} \\ Michael B. Porter, Mar 01 2010
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Leroy Quet, Aug 24 2006
EXTENSIONS
Extended by Ray Chandler, Aug 29 2006
STATUS
approved