login
A269373
Permutation of natural numbers: a(1) = 1, a(n) = A000079(A260438(n+1)-1) * ((2 * a(A260439(n+1))) - 1).
4
1, 2, 3, 6, 5, 4, 11, 8, 9, 10, 7, 16, 21, 32, 15, 22, 17, 12, 19, 64, 13, 18, 31, 128, 41, 24, 63, 14, 29, 256, 43, 512, 33, 42, 23, 1024, 37, 20, 127, 30, 25, 2048, 35, 48, 61, 34, 255, 4096, 81, 8192, 47, 38, 125, 96, 27, 40, 57, 26, 511, 44, 85, 16384, 1023, 62, 65, 32768, 83, 65536, 45, 82, 2047, 131072, 73, 262144, 39
OFFSET
1,2
FORMULA
a(1) = 1, a(n) = A000079(A260438(n+1)-1) * ((2 * a(A260439(n+1))) - 1).
Other identities. For all n >= 0:
A000035(a(n)) = A000035(n). [This permutation preserves the parity of n.]
PROG
(Scheme, with memoization-macro definec)
(definec (A269373 n) (cond ((<= n 1) n) (else (* (A000079 (- (A260438 (+ 1 n)) 1)) (+ -1 (* 2 (A269373 (A260439 (+ 1 n)))))))))
CROSSREFS
Inverse: A269374.
Cf. also A249813, A269383.
Sequence in context: A254117 A370629 A218890 * A269374 A137761 A100769
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 01 2016
STATUS
approved