|
|
A122414
|
|
Triangle T(n,k) for 1 <= k <= n read by rows, where T(n,k) = 1 if gcd(n,k) is prime, 0 otherwise.
|
|
3
|
|
|
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
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
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
|
if isprime(igcd(n, k)) then
1;
else
0;
end if;
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|