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 A245610 #11 Jul 31 2014 23:50:26
%S A245610 1,3,2,13,8,4,26,7,5,28,14,172,149,25,41,18,635,102,113,1194,11,43,
%T A245610 428,22,17,6,77,88,71,259,527,130,227,48,74,12,677,235,20,688,68,634,
%U A245610 5711,61,50,1593,1490,27612,59,39,29,63,11438,10119,4748,9,344,238,413,1602,941,69
%N A245610 Permutation of natural numbers: a(n) = A048673(A244319(n)).
%H A245610 Antti Karttunen, <a href="/A245610/b245610.txt">Table of n, a(n) for n = 1..10001</a>
%H A245610 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F A245610 a(n) = A048673(A244319(n)).
%o A245610 (PARI)
%o A245610 A048673(n) = (1+A003961(n))/2;
%o A245610 A245610(n) = A048673(A244319(n)); \\ For the other needed functions, see under A244319.
%o A245610 for(n=1, 10001, write("b245610.txt", n, " ", A245610(n)));
%o A245610 (Scheme) (define (A245610 n) (A048673 (A244319 n)))
%Y A245610 Inverse: A245609.
%Y A245610 Cf. A003961, A048673, A244319, A245607-A245608.
%K A245610 nonn
%O A245610 1,2
%A A245610 _Antti Karttunen_, Jul 29 2014