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 A098552 #14 Nov 22 2014 03:19:35
%S A098552 1,2,3,4,5,14,7,16,9,8,26,12,34,10,15,6,39,22,28,11,30,25,35,24,45,95,
%T A098552 51,23,85,21,20,123,33,75,55,64,65,88,17,69,91,58,27,63,78,42,81,49,
%U A098552 54,50,13,40,102,48,72,44,111,46,41,31,32,18,56,92,93,94,77,74,52,112,62
%N A098552 A098550(A098550(n)).
%C A098552 Integer permutation with inverse A098553; A098551(a(n)) = a(A098551(n)) = A098550(n).
%H A098552 Reinhard Zumkeller, <a href="/A098552/b098552.txt">Table of n, a(n) for n = 1..10000</a>
%H A098552 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%t A098552 f[lst_List] := Block[{k = 4}, While[ GCD[ lst[[-2]], k] == 1 || GCD[ lst[[-1]], k] > 1 || MemberQ[lst, k], k++]; Append[lst, k]]; lst[[#]] & /@ Take[lst = Nest[f, {1, 2, 3}, 120], 71] (* _Robert G. Wilson v_, Nov 21 2014 *)
%o A098552 (Haskell)
%o A098552 a098552 = a098550 . a098550 -- _Reinhard Zumkeller_, Nov 21 2014
%Y A098552 Cf. A098550, A098553.
%K A098552 nonn
%O A098552 1,2
%A A098552 _Reinhard Zumkeller_, Sep 14 2004