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 A232799 #4 Dec 02 2013 09:25:22 %S A232799 1,2,4,3,5,11,6,9,21,10,7,16,8,12,28,13,26,62,27,14,33,15,22,52,23,50, %T A232799 120,51,24,57,25,17,40,18,38,91,39,19,45,20,29,69,30,67,161,68,31,74, %U A232799 32,63,151,64,149,359,150,65,156,66,34,81,35,79,190,80,36 %N A232799 Inverse permutation of the sequence of positive integers at A232798. %H A232799 Clark Kimberling, <a href="/A232799/b232799.txt">Table of n, a(n) for n = 1..300</a> %t A232799 x = {1}; Do[x = DeleteDuplicates[Flatten[Transpose[{x, x + 1, 3 x - 1, 3 x + 1}]]], {8}]; x (* A232798 *) %t A232799 y = Flatten[Table[Position[x, n], {n, 1, 157}]] (* A232799 *) %Y A232799 Cf. A232559, A232798. %K A232799 nonn,easy %O A232799 1,2 %A A232799 _Clark Kimberling_, Nov 30 2013