cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A029886 Convolution of Thue-Morse sequence A001285 with itself.

This page as a plain text file.
%I A029886 #26 Apr 04 2019 17:28:34
%S A029886 1,4,8,10,12,14,15,16,22,24,23,26,29,30,34,40,38,40,43,42,47,50,52,56,
%T A029886 55,56,62,66,64,70,71,64,78,80,75,82,83,82,88,96,89,92,100,98,102,106,
%U A029886 105,104,111,112,114,122,118,122,125,120,130,136,131,130,141,134,138,160
%N A029886 Convolution of Thue-Morse sequence A001285 with itself.
%C A029886 Comment from _Jeremy Gardiner_, Dec 28 2008: The following sequences all appear to have the same parity: A003071, A029886, A061297, A092524, A093431, A102393, A104258, A122248, A128975.
%H A029886 Seiichi Manyama, <a href="/A029886/b029886.txt">Table of n, a(n) for n = 0..10000</a>
%H A029886 Tanya Khovanova, <a href="http://arxiv.org/abs/1410.2193">There are no coincidences</a>, arXiv preprint 1410.2193 [math.CO], 2014.
%F A029886 G.f.: (1/4)*(3/(1 - x) - Product_{k>=0} (1 - x^(2^k)))^2. - _Ilya Gutkovskiy_, Apr 03 2019
%t A029886 P[n_, x_] := (bb = IntegerDigits[n, 2]) . x^Range[Length[bb]-1, 0, -1];
%t A029886 TM[n_] := 1 + Mod[P[n, 1], 2];
%t A029886 a[n_] := Sum[TM[k] TM[n-k], {k, 0, n}];
%t A029886 Table[a[n], {n, 0, 63}] (* _Jean-François Alcover_, Aug 31 2018 *)
%o A029886 (PARI) a(n)=sum(k=0,n,(1+subst(Pol(binary(k)),x,1)%2)*(1+subst(Pol(binary(n-k)),x,1)%2)) \\ _Ralf Stephan_, Aug 23 2013
%Y A029886 Cf. A001285.
%K A029886 nonn
%O A029886 0,2
%A A029886 _N. J. A. Sloane_