This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A269383 #6 Mar 03 2016 22:51:06 %S A269383 1,2,3,4,5,8,7,6,9,16,15,32,13,10,11,64,17,12,31,14,29,128,63,256,25, %T A269383 18,19,512,21,24,127,30,33,20,23,1024,61,26,27,2048,57,4096,255,22, %U A269383 125,8192,511,28,49,34,35,16384,37,48,1023,62,41,40,47,32768,253,58,59,36,65,65536,39,126,45,131072,2047,96,121,50,51,262144,53,60 %N A269383 Permutation of natural numbers: a(1) = 1, a(n) = A000079(A260738(n+1)-1) * ((2 * a(A260739(n+1))) - 1). %H A269383 Antti Karttunen, <a href="/A269383/b269383.txt">Table of n, a(n) for n = 1..1024</a> %H A269383 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a> %F A269383 a(1) = 1, a(n) = A000079(A260738(n+1)-1) * ((2 * a(A260739(n+1))) - 1). %F A269383 Other identities. For all n >= 0: %F A269383 A000035(a(n)) = A000035(n). [This permutation preserves the parity of n.] %o A269383 (Scheme, with memoization-macro definec) %o A269383 (definec (A269383 n) (cond ((<= n 1) n) (else (* (A000079 (- (A260738 (+ 1 n)) 1)) (+ -1 (* 2 (A269383 (A260739 (+ 1 n))))))))) %Y A269383 Inverse: A269384. %Y A269383 Cf. A000035, A000079, A260738, A260739. %Y A269383 Cf. also A249813, A269373. %Y A269383 Differs from both A246683 and A249813 for the first time at n=18, which here a(18)=12, instead of 128. %K A269383 nonn %O A269383 1,2 %A A269383 _Antti Karttunen_, Mar 01 2016