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.

A127243 Triangle whose k-th column is generated by (1+A010060(1+k)x)*x^k.

This page as a plain text file.
%I A127243 #7 Aug 04 2023 04:34:32
%S A127243 1,1,1,0,1,1,0,0,0,1,0,0,0,1,1,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,
%T A127243 1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,
%U A127243 0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1
%N A127243 Triangle whose k-th column is generated by (1+A010060(1+k)x)*x^k.
%e A127243 Triangle begins:
%e A127243   1;
%e A127243   1, 1;
%e A127243   0, 1, 1;
%e A127243   0, 0, 0, 1;
%e A127243   0, 0, 0, 1, 1;
%e A127243   0, 0, 0, 0, 0, 1;
%e A127243   0, 0, 0, 0, 0, 0, 1;
%e A127243   0, 0, 0, 0, 0, 0, 1, 1;
%e A127243   0, 0, 0, 0, 0, 0, 0, 1, 1;
%e A127243   0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
%e A127243   0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1;
%e A127243   ...
%t A127243 T[n_, k_] := SeriesCoefficient[(1 + ThueMorse[1 + k]*x)*x^k, {x, 0, n}]; Table[T[n, k], {n, 0, 12}, {k, 0, n}] // Flatten (* _Amiram Eldar_, Aug 04 2023 *)
%Y A127243 Inverse is A127244.
%Y A127243 Row sums are 1+A010060(n) = A001285(n).
%K A127243 easy,nonn,tabl
%O A127243 0,1
%A A127243 _Paul Barry_, Jan 10 2007
%E A127243 More terms from _Amiram Eldar_, Aug 04 2023