|
Search: id:A122414
|
|
|
| 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. |
|
+0
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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
First column is all zeros, main diagonal is A010051 (characteristic function of primes).
|
|
PROGRAM
|
(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
|
Cf. A010051, A122415.
Row sums are in A117494. [From Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), May 29 2009]
Sequence in context: A072785 A074937 A143518 this_sequence A144605 A154103 A116178
Adjacent sequences: A122411 A122412 A122413 this_sequence A122415 A122416 A122417
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Sep 03 2006
|
|
|
Search completed in 0.002 seconds
|
