%I A097467
%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.
%Y A097467 Sequence in context: A163238 A097362 A129131 this_sequence A092205 A059853 
               A136527
%Y A097467 Adjacent sequences: A097464 A097465 A097466 this_sequence A097468 A097469 
               A097470
%K A097467 nonn
%O A097467 1,2
%A A097467 Alec Mihailovs (alec(AT)mihailovs.com), Aug 23 2004