|
%I #15 Feb 02 2020 22:22:46
%S 1,1,3,1,0,3,1,3,5,7,1,0,2,4,3,1,3,0,2,5,7,1,0,3,2,5,4,7,1,3,5,7,9,11,
%T 13,15,1,0,2,4,6,8,10,12,3,1,3,0,2,4,6,8,10,5,7,1,0,3,2,4,6,8,10,5,12,
%U 7,1,3,5,7,0,2,4,6,9,11,13,15,1,0,2,4,3,6,8,10,5,12,14,16,7
%N Triangle: Lodumo_2 applied to each row of Pascal's triangle .
%H Andrew Howroyd, <a href="/A160019/b160019.txt">Table of n, a(n) for n = 0..1325</a>
%H OEIS wiki, <a href="https://oeis.org/wiki/Lodumo_transform">Lodumo transform</a>
%F T(n,0)=A000012(n)=1; T(n,1)=A010674(n). - _Philippe Deléham_, Nov 15 2011
%e Triangle begins:
%e 1;
%e 1, 3;
%e 1, 0, 3;
%e 1, 3, 5, 7;
%e 1, 0, 2, 4, 3;
%e 1, 3, 0, 2, 5, 7; ...
%o (PARI) \\ here S(n,k) is A047999.
%o S(n,k)={bitand(n-k, k)==0}
%o row(n)={my(v=vector(n+1), b=0); for(k=0, n, if(S(n,k), b++; v[1+k]=2*b-1, v[1+k]=2*(k-b))); v}
%o { for(n=0, 10, print(row(n))) } \\ _Andrew Howroyd_, Feb 02 2020
%Y Row sums are A160020.
%Y Cf. A007318, A047999, A261363.
%K easy,nonn,tabl
%O 0,3
%A _Philippe Deléham_, Apr 29 2009, May 02 2009
|
