login
A075162
Position of A014486(n) in A075165, minus one.
5
0, 1, 2, 3, 4, 5, 8, 7, 15, 6, 9, 14, 11, 23, 24, 17, 26, 31, 63, 80, 511, 255, 65535, 10, 13, 20, 19, 39, 34, 29, 44, 47, 95, 134, 767, 383, 98303, 48, 49, 74, 35, 71, 124, 53, 242, 127, 1023, 728, 32767, 4095, 16777215, 624, 161, 19682, 33554431, 262143, 6560
OFFSET
0,3
COMMENTS
See A075166.
PROG
(Scheme functions showing the essential idea. For the complete source, follow the "Alternative Catalan Orderings" link:)
(define (A075162 n) (-1+ (parenthesization->primefactorization (binexp->parenthesization (A014486 n)))))
(define (parenthesization->primefactorization p) (Nvector->primefactorization! (map parenthesization->primefactorization p)))
(define (Nvector->primefactorization! el) (let loop ((el (reverse! el)) (i 1) (z 1)) (cond ((null? el) z) ((null? (cdr el)) (* (expt (A008578 i) (car el)) z)) (else (loop (cdr el) (1+ i) (* (expt (A008578 i) (-1+ (car el))) z))))))
CROSSREFS
Inverse of A075161. a(n) = A075164(n+1)-1. Cf. A075157, A075169.
Sequence in context: A091893 A074756 A240221 * A056240 A069968 A298882
KEYWORD
nonn
AUTHOR
Antti Karttunen, Sep 13 2002
STATUS
approved