|
|
A176079
|
|
Triangle T(n,k) read by rows: If k divides n then k-1, otherwise -1.
|
|
5
|
|
|
0, 0, 1, 0, -1, 2, 0, 1, -1, 3, 0, -1, -1, -1, 4, 0, 1, 2, -1, -1, 5, 0, -1, -1, -1, -1, -1, 6, 0, 1, -1, 3, -1, -1, -1, 7, 0, -1, 2, -1, -1, -1, -1, -1, 8, 0, 1, -1, -1, 4, -1, -1, -1, -1, 9, 0, -1, -1, -1, -1, -1, -1, -1, -1, -1, 10, 0, 1, 2, 3, -1, 5, -1, -1, -1, -1, -1, 11
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,6
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
Table begins:
0;
0, 1;
0, -1, 2;
0, 1, -1, 3;
0, -1, -1, -1, 4;
0, 1, 2, -1, -1, 5;
0, -1, -1, -1, -1, -1, 6;
0, 1, -1, 3, -1, -1, -1, 7;
0, -1, 2, -1, -1, -1, -1, -1, 8;
0, 1, -1, -1, 4, -1, -1, -1, -1, 9;
|
|
MAPLE
|
seq(seq( `if`(mod(n, k)=0, k-1, -1) , k=1..n), n=1..15); # G. C. Greubel, Nov 27 2019
|
|
MATHEMATICA
|
Table[If[Divisible[n, k], k-1, -1], {n, 15}, {k, n}]//Flatten (* Harvey P. Dale, May 20 2016 *)
|
|
PROG
|
(PARI) T(n, k)= if(Mod(n, k)==0, k-1, -1); \\ G. C. Greubel, Nov 27 2019
(Magma) [(n mod k) eq 0 select k-1 else -1: k in [1..n], n in [1..15]]; // G. C. Greubel, Nov 27 2019
(Sage)
def T(n, k):
if (mod(n, k)==0): return k-1
else: return -1
[[T(n, k) for k in (1..n)] for n in (1..15)] # G. C. Greubel, Nov 27 2019
(GAP)
T:= function(n, k)
if (n mod k = 0) then return k-1;
else return -1;
fi; end;
Flat(List([1..15], n-> List([1..n], k-> T(n, k) ))); # G. C. Greubel, Nov 27 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|