|
Search: id:A085201
|
|
|
| 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
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; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
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)))
|
|
PROGRAM
|
(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.
Adjacent sequences: A085198 A085199 A085200 this_sequence A085202 A085203 A085204
Sequence in context: A085202 A096009 A000224 this_sequence A051601 A054225 A074829
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Antti Karttunen (HisFirstname.HisSurname(AT)iki.fi) Jun 23 2003
|
|
|
Search completed in 0.002 seconds
|
