Search: id:A095689
Results 1-1 of 1 results found.

%I A095689
%S A095689 1,2,4,3,5,6,8,7,10,9,14,12,11,13,18,16,15,20,26,22,21,17,19,24,23,25,
%T A095689 28,27,29,38,32,31,33,36,40,30,39,35,34,44,37,43,45,41,50,47,49,42,52,
%U A095689 46,56,48,58,51,66,53,55,54,59,61,57,64,60,63,67,78,68,62,70,65,77,75
%N A095689 Permutation of natural numbers inverse to A094870.
%C A095689 2n/3 < a(n) <= 8n/3 (P. Hegarty). Conjecture: lim_{n->infinity} a(n)/
               n = 1 (P. Hegarty).
%H A095689 Peter Hegarty, <a href="http://www.combinatorics.org/Volume_11/Abstracts/
               v11i1r39.html">Permutations avoiding arithmetic patterns</a>, The 
               Electronic Journal of Combinatorics, 11 (2004), #R39.
%e A095689 a(3)=4 because A094870(4)=3.
%p A095689 A:=proc(n) option remember; local t, S, i; S:={$1..300} minus {seq(A(i),
               i=1..n-1)}; t:=min(S[]); i:=1; while i<floor((n+1)/2) do if t-A(n-i)=A(n-i)-A(n-2*i) 
               then S:=S minus {t}; t:=min(S[]); i:=1 else i:=i+1 fi 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..194);
%Y A095689 Cf. A094870.
%Y A095689 Sequence in context: A095690 A094870 A075618 this_sequence A083194 A105366 
               A077156
%Y A095689 Adjacent sequences: A095686 A095687 A095688 this_sequence A095690 A095691 
               A095692
%K A095689 easy,nonn
%O A095689 1,2
%A A095689 Alec Mihailovs (alec(AT)mihailovs.com), Jul 05 2004

Search completed in 0.001 seconds