A085201 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), ...

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, 28, 24, 37, 24, 11, 7, 8, 16, 37, 29, 65, 38, 25, 12, 8, 9, 19, 42, 38, 79, 66, 39, 26, 13, 9, 10, 23, 51, 43, 107, 80, 67, 40, 27, 23, 10, 11, 25, 65, 52, 121, 108, 81, 68, 41, 65, 24, 11

Offset

0,4

Comments

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

Links

Table of n, a(n) for n=0..77.

Index entries for the sequences induced by list functions of Lisp

Formula

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

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

Prog

(MIT Scheme) (define (A085201bi x y) (A080300 (A085207bi (A014486 x) (A014486 y))))
(define (A085201 n) (A085201bi (A025581 n) (A002262 n)))
(define (A085202 n) (A085201bi (A002262 n) (A025581 n)))

Crossrefs

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

Cf. also A014486, A080300, A025581, A002262.

Sequence in context: A085202 A096009 A000224 * A300401 A051601 A296612

Adjacent sequences: A085198 A085199 A085200 * A085202 A085203 A085204

Keyword

nonn,tabl

Author

Antti Karttunen Jun 23 2003

Status

approved