|
Search: id:A164295
|
|
| |
|
| 2, 2, 1, 2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 0, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 0, 1, 1, 2, 1, 1, 1, 1, 0, 1, 1, 1, 2, 1, 1, 0, 1, 0, 1, 0, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1
(list; table; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Zeros in the table, for example T(6,4)=0, indicate that the row and column indices n and k are
not coprime and in addition that there is a nonzero remainder n (mod k).
|
|
FORMULA
|
T(n,k)=A054521(n,k)+A051731(n,k), 1<=k<=n, 1<=n.
|
|
EXAMPLE
|
The table starts
2
2, 1
2, 1, 1
2, 1, 1, 1
2, 1, 1, 1, 1
2, 1, 1, 0, 1, 1
2, 1, 1, 1, 1, 1, 1
2, 1, 1, 1, 1, 0, 1, 1
2, 1, 1, 1, 1, 0, 1, 1, 1
2, 1, 1, 0, 1, 0, 1, 0, 1, 1
|
|
MAPLE
|
A054521 := proc(n, k) if gcd(n, k) = 1 then 1; else 0 ; fi; end:
A051731 := proc(n, k) if (n mod k) = 0 then 1; else 0 ; fi; end:
A164295 := proc(n, k) A054521(n, k)+A051731(n, k) ; end: seq(seq(A164295(n, k), k=1..n), n=1..10) ;
|
|
MATHEMATICA
|
T[n_, k_] = If[Mod[n, k] == 0, 1, 0] + If[GCD[n, k] == 1, 1, 0];
Table[Table[T[n, k], {k, 1, n}], {n, 1, 10}]; Flatten[%]
|
|
CROSSREFS
|
Cf. A054521, A051731
Sequence in context: A025912 A029441 A109495 this_sequence A035214 A071292 A088569
Adjacent sequences: A164292 A164293 A164294 this_sequence A164296 A164297 A164298
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Roger L. Bagula and Mats Granvik (rlbagulatftn(AT)yahoo.com), Aug 12 2009
|
|
EXTENSIONS
|
Edited by the Associate Editors of the OEIS, Aug 28 2009
|
|
|
Search completed in 0.002 seconds
|
