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 A097467 #1 Sep 22 2004 03:00:00
%S A097467 1,4,2,6,3,9,5,11,7,14,8,16,10,18,12,20,13,24,15,26,21,28,17,30,19,22,
%T A097467 27,32,23,36,25,38,33,40,29,43,31,34,39,45,35,49,37,47,41,51,42,55,44,
%U A097467 53,46,57,48,61,50,63,52,59,54,67,56,65,58,69,60,75,62,71,64,77,66,73
%N A097467 Permutation of natural numbers inverse to A097465.
%e A097467 a(3)=2 because A097465(2)=3.
%p A097467 A:=proc(n) option remember; local t, S; S:=({$1..1000} minus {seq(A(i),i=1..n-1)}) minus {A(n-1)-1,A(n-1)+1}; t:=min(S[]); while igcd(A(n-1),t)>1 do S:=S minus {t}; t:=min(S[]) od; t end: A(1):=1: L:=[seq(A(n),n=1..200)]: a:=n-> if member(n,L,'p') then p else 0 fi: seq(a(n),n=1..195);
%Y A097467 Cf. A097465.
%K A097467 nonn
%O A097467 1,2
%A A097467 Alec Mihailovs (alec(AT)mihailovs.com), Aug 23 2004