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 A085163 #8 Oct 15 2015 10:55:24 %S A085163 0,1,2,3,4,6,7,5,8,9,11,14,16,19,17,20,12,10,18,21,15,13,22,23,25,28, %T A085163 30,33,37,39,42,44,56,51,53,47,60,45,48,54,57,61,31,34,26,24,46,49,38, %U A085163 32,59,58,62,40,29,55,35,43,27,50,63,52,41,36,64,65,67,70,72,75 %N A085163 Permutation of natural numbers induced by the Catalan bijection gma085163 acting on symbolless S-expressions encoded by A014486/A063171. %H A085163 A. Karttunen, <a href="http://www.iki.fi/~kartturi/matikka/Nekomorphisms/gatomorf.htm">Gatomorphisms</a> (With the complete Scheme source) %H A085163 <a href="/index/Per#IntegerPermutationCatAuto">Index entries for signature-permutations induced by Catalan automorphisms</a> %o A085163 (Scheme function implementing this automorphism on list-structures:) %o A085163 (define (gma085163! s) (cond ((null? s) s) (else (app-to-xrt! (gma085161! (car s)) (append! (map gma085161! (cdr s)) (list (list))))))) %Y A085163 Inverse: A085164. a(n) = A085161(A057508(n)). Occurs in A073200. Cf. also A085171, A085172. Scheme-function app-to-xrt given in A085203. %Y A085163 Number of fixed points 1, 1, 2, 2, 3, 4, 7, 11, 21, 36, 71, ... in range [A014137(n-1)..A014138(n-1)] of this permutation appears to be A051920 after the initial two ones. %K A085163 nonn %O A085163 0,3 %A A085163 _Antti Karttunen_, Jun 23 2003