OFFSET
1,1
FORMULA
T(n,n) = A010051(n).
T(n,1) = 0.
EXAMPLE
The triangle starts
0
0 1
0 0 1
0 1 0 0
0 0 0 0 1
0 1 1 1 0 0
0 0 0 0 0 0 1
0 1 0 0 0 1 0 0
0 0 1 0 0 1 0 0 0
0 1 0 1 1 1 0 1 0 0
0 0 0 0 0 0 0 0 0 0 1
0 1 1 0 0 0 0 0 1 1 0 0
0 0 0 0 0 0 0 0 0 0 0 0 1
0 1 0 1 0 1 1 1 0 1 0 1 0 0
0 0 1 0 1 1 0 0 1 1 0 1 0 0 0
MAPLE
A122414 := proc(n, k)
if isprime(igcd(n, k)) then
1;
else
0;
end if;
end proc: # R. J. Mathar, Apr 21 2021
PROG
(PARI) {m=14; v=vector(m, x, vector(x)); for(n=1, m, for(k=1, n, if(isprime(gcd(n, k)), v[n][k]=1))); for(n=1, m, for(k=1, n, print1(v[n][k], ", ")))}
CROSSREFS
KEYWORD
AUTHOR
Klaus Brockhaus, Sep 03 2006
STATUS
approved