|
%I #25 Feb 17 2021 09:24:45
%S 1,2,5,13,34,108,415,1841,9381,53733,342086,2395481,18300250,
%T 151453434,1349856656,12890177378,131298281746,1420980348324,
%U 16283235530691,196958363484995,2507751773736087,33526171616091612
%N Boustrophedon transform of 1 followed by Thue-Morse sequence A001285.
%H Reinhard Zumkeller, <a href="/A029885/b029885.txt">Table of n, a(n) for n = 0..400</a>
%H Peter Luschny, <a href="http://oeis.org/wiki/User:Peter_Luschny/SeidelTransform">An old operation on sequences: the Seidel transform</a>.
%H J. Millar, N. J. A. Sloane and N. E. Young, A new operation on sequences: the Boustrophedon transform, J. Combin. Theory, 17A (1996) 44-54 (<a href="http://neilsloane.com/doc/bous.txt">Abstract</a>, <a href="http://neilsloane.com/doc/bous.pdf">pdf</a>, <a href="http://neilsloane.com/doc/bous.ps">ps</a>).
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>.
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Boustrophedon_transform">Boustrophedon transform</a>.
%H <a href="/index/Bo#boustrophedon">Index entries for sequences related to boustrophedon transform</a>
%t tm[n_] := Mod[Sum[Mod[Binomial[n, k], 2], {k, 0, n}], 3];
%t T[n_, k_] := (n!/k!) SeriesCoefficient[(1 + Sin[x])/Cos[x], {x, 0, n - k}];
%t a[n_] := Sum[T[n, k] If[k == 0, 1, tm[k - 1]], {k, 0, n}];
%t Table[a[n], {n, 0, 21}] (* _Jean-François Alcover_, Jul 02 2019 *)
%o (Haskell)
%o a029885 n = sum $ zipWith (*) (a109449_row n) (1 : map fromIntegral a001285_list)
%o -- _Reinhard Zumkeller_, Nov 04 2013
%Y Cf. A109449, A001285, A230958, A230950, A230951.
%K nonn
%O 0,2
%A _N. J. A. Sloane_.
%E Definition corrected by _Reinhard Zumkeller_, Nov 04 2013
|
