login
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), ...
13
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.
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/GNU 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.
Sequence in context: A085202 A096009 A000224 * A300401 A051601 A296612
KEYWORD
nonn,tabl
AUTHOR
Antti Karttunen, Jun 23 2003
STATUS
approved