OFFSET
0,5
COMMENTS
LINKS
Vincenzo Librandi, Rows n = 0..100, flattened
EXAMPLE
Triangle begins:
1;
1,1;
1,3,7;
1,1,7,5;
1,3,7,3,31;
1,1,7,5,31,21;
1,3,7,15,31,63,127;
1,1,7,5,31,7,127,85;
1,3,7,3,31,63,127,51,511;
1,1,7,5,31,21,127,85,511,341;
1,3,7,15,31,63,127,15,511,1023,2047;
1,1,7,5,31,21,127,85,511,341,2047,1365; etc.
MATHEMATICA
a[n_, k_] := Denominator[(1 + 2^(n - k + 1))/(1 - 2^(k + 1))]; Table[a[n, k], {n, 0, 11}, {k, 0, n}] // Flatten
PROG
(Magma) [Denominator((1+2^(n-k+1))/(1-2^(k+1))): k in [0..n], n in [0..11]];
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Vincenzo Librandi, Aug 15 2013
STATUS
approved