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.

A164056 Triangle of 2^n terms by rows, derived from A088696 as to length of continued fractions, lengths increase = 1, decrease = 0. A088696 can be generated using the following algorithm: Rows 0 and 1 begin 1; 1,2; then for all further rows, bring down current row then append to the right: (1 added to each term in current row). Row 2 (1, 2, 3, 2) then becomes: (1, 2, 3, 2, 3, 4, 3, 2).

This page as a plain text file.
%I A164056 #17 Oct 05 2019 04:26:36
%S A164056 0,0,1,0,1,1,0,0,1,1,0,1,1,0,0,0,1,1,0,1,1,0,0,1,1,1,0,0,1,0,0,0,1,1,
%T A164056 0,1,1,0,0,1,1,1,0,0,1,0,0,1,1,1,0,1,1,0,0,0,1,1,0,0,1,0,0,0,1,1,0,1,
%U A164056 1,0,0,1,1,1,0,0,1,0,0,1,1,1,0,1,1,0,0
%N A164056 Triangle of 2^n terms by rows, derived from A088696 as to length of continued fractions, lengths increase = 1, decrease = 0. A088696 can be generated using the following algorithm: Rows 0 and 1 begin 1; 1,2; then for all further rows, bring down current row then append to the right: (1 added to each term in current row). Row 2 (1, 2, 3, 2) then becomes: (1, 2, 3, 2, 3, 4, 3, 2).
%C A164056 Complement of the sequence = A164057
%H A164056 Jon Maiga, <a href="/A164056/b164056.txt">Table of n, a(n) for n = 0..1022</a> (Rows 0..9)
%F A164056 Given number of terms in half of the Stern-Brocot infinite Farey tree (cf. A088696); left the leftmost term in each row = 0, then the next term = 1 if the next corresponding positional term in A088696 increases; otherwise 0.
%e A164056 A088696 begins:
%e A164056 1;
%e A164056 1, 2;
%e A164056 1, 2, 3, 2;
%e A164056 1, 2, 3, 2, 3, 4, 3, 2;
%e A164056 ...
%e A164056 Triangle A164056 =
%e A164056 0;
%e A164056 0, 1;
%e A164056 0, 1, 1, 0;
%e A164056 0, 1, 1, 0, 1, 1, 0, 0;
%e A164056 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0;
%e A164056 ...
%t A164056 A088696[n_]:=A088696[n]=Flatten[NestList[Join[#,Reverse[#]+1]&,{1},15]][[n]]; Table[If[n>1,If[A088696[n+1]>A088696[n], 1, 0], 0], {n,0,100}] (* _Jon Maiga_, Sep 30 2019 *)
%Y A164056 Cf. A088696, A164057
%K A164056 nonn,tabf
%O A164056 0,1
%A A164056 _Gary W. Adamson_, Aug 08 2009
%E A164056 More terms from _Jon Maiga_, Sep 30 2019
%E A164056 Keyword tabf from _Michel Marcus_, Sep 30 2019