|
%I #15 Dec 04 2023 06:38:23
%S 1,1,1,1,0,1,1,0,0,1,1,1,0,0,1,1,0,0,0,0,1,1,0,0,0,0,0,1,1,1,1,0,0,0,
%T 0,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,1,0,1,0,0,0,0,0,0,1,1,0,
%U 0,0,0,0,0,0,0,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,0,0,0,0,0,0,0,0,1
%N Triangle read by rows: column k has g.f. = Sum_{k>0} x^k/(1-x^(2*k+1)).
%C Number triangle related to divisors of 2n+1. Row n has a 1 in column k iff 2*k+1 divides 2*n+1. - _N. J. A. Sloane_, Dec 23 2020
%H Paolo Xausa, <a href="/A114000/b114000.txt">Table of n, a(n) for n = 0..11324</a> (rows 0..150 of the triangle, flattened).
%e Triangle begins
%e 1
%e 1, 1,
%e 1, 0, 1,
%e 1, 0, 0, 1,
%e 1, 1, 0, 0, 1,
%e 1, 0, 0, 0, 0, 1,
%e 1, 0, 0, 0, 0, 0, 1,
%e 1, 1, 1, 0, 0, 0, 0, 1,
%e 1, 0, 0, 0, 0, 0, 0, 0, 1,
%e 1, 0, 0, 0, 0, 0, 0, 0, 0, 1,
%e 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 1,
%e 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
%e 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1,
%e 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1
%e ...
%t A114000row[n_]:=Boole[Divisible[2n+1,2Range[0,n]+1]];
%t Array[A114000row,20,0] (* _Paolo Xausa_, Dec 04 2023 *)
%Y Cf. A001227, A082647, A131576.
%Y Rows sums are A099774. Rows as decimals give A114001.
%K easy,nonn,tabl
%O 0,1
%A _Paul Barry_, Nov 12 2005
%E Edited by _N. J. A. Sloane_, Dec 23 2020
|
