login
Array A(x,y): Position of the concatenation of binary strings A014486(x) & A014486(y) in A014486, listed antidiagonalwise as A(0,0), A(1,0), A(0,1), A(2,0), A(1,1), A(0,2), ...
13

%I #14 May 18 2024 14:55:34

%S 0,1,1,2,2,2,3,4,4,3,4,6,9,5,4,5,9,14,10,9,5,6,11,23,15,23,10,6,7,14,

%T 28,24,37,24,11,7,8,16,37,29,65,38,25,12,8,9,19,42,38,79,66,39,26,13,

%U 9,10,23,51,43,107,80,67,40,27,23,10,11,25,65,52,121,108,81,68,41,65,24,11

%N Array A(x,y): Position of the concatenation of binary strings A014486(x) & A014486(y) in A014486, listed antidiagonalwise as A(0,0), A(1,0), A(0,1), A(2,0), A(1,1), A(0,2), ...

%C This table is induced by the 2-ary form of the list-function 'append' present in the programming languages like Lisp, Scheme and Prolog.

%H <a href="/index/Li#ListFunsOfLisp">Index entries for the sequences induced by list functions of Lisp</a>

%F a(0, y)=y, a(x, y) = A072764bi(A072771(x), a(A072772(x), y))

%F a(x, y) = A080300(A085207bi(A014486(x), A014486(y))) = A085200(A085215bi(A071155(y), A071155(x)))

%o (MIT/GNU Scheme) (define (A085201bi x y) (A080300 (A085207bi (A014486 x) (A014486 y))))

%o (define (A085201 n) (A085201bi (A025581 n) (A002262 n)))

%o (define (A085202 n) (A085201bi (A002262 n) (A025581 n)))

%Y Transpose: A085202. Variant: A085203. Row 1: A085223, Column 1: A072795.

%Y Cf. also A014486, A080300, A025581, A002262.

%K nonn,tabl

%O 0,4

%A _Antti Karttunen_, Jun 23 2003