|
| |
|
|
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), ...
|
|
9
| |
|
|
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
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
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
| 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 * A051601 A193921 A074829
Adjacent sequences: A085198 A085199 A085200 * A085202 A085203 A085204
|
|
|
KEYWORD
| nonn,tabl
|
|
|
AUTHOR
| Antti Karttunen (HisFirstname.HisSurname(AT)iki.fi) Jun 23 2003
|
| |
|
|
