login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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

  NODES
orte 1
see 1
Story 1