%I A095690
%S A095690 1,2,4,3,5,6,8,7,10,9,12,13,14,11,16,18,20,22,24,15,26,17,28,27,30,32,
%T A095690 34,21,36,19,25,23,38,40,29,42,44,46,48,35,50,52,54,31,56,58,60,33,37,
%U A095690 45,62,43,41,64,66,51,68,70,72,39,74,76,78,53,80,82,57,55,84,86,65,47
%N A095690 Permutation of natural numbers inverse to A075618.
%e A095690 a(3)=4 because A075618(4)=3.
%p A095690 a:=proc(n) option remember; local t, S, i; S:={$1..300} minus {seq(a(i),
               i=1..n-1)}; t:=min(S[]); if n::odd then while parse(cat(seq(a((n+1)/
               2+i),i=0..(n-3)/2),t)) mod (n+1)/2 <> 0 do S:=S minus {t}; t:=min(S[]) 
               od fi; t end: a(1):=1: L:=[seq(a(n),n=1..186)]: A:=n-> if member(n,
               L,'p') then p else 0 fi: seq(A(n),n=1..157);
%Y A095690 Cf. A075618.
%Y A095690 Sequence in context: A107896 A107897 A133256 this_sequence A094870 A075618 
               A095689
%Y A095690 Adjacent sequences: A095687 A095688 A095689 this_sequence A095691 A095692 
               A095693
%K A095690 easy,nonn
%O A095690 1,2
%A A095690 Alec Mihailovs (alec(AT)mihailovs.com), Jul 05 2004