cp's OEIS Frontend

A184425 Lower s-Wythoff sequence, where s=A000217 (triangular numbers). Complement of A184426.

%I A184425 #7 Mar 30 2012 18:57:13
%S A184425 1,3,4,5,7,8,9,11,12,13,14,16,17,18,19,20,21,23,24,25,26,27,28,30,31,
%T A184425 32,33,34,35,36,38,39,40,41,42,43,44,45,46,48,49,50,51,52,53,54,55,56,
%U A184425 58,59,60,61,62,63,64,65,66,67,69,70,71,72,73,74,75,76,77,78,79,81,82,83,84,85,86,87,88,89,90,91,92,93,95,96,97,98,99,100,101,102,103,104,105,106,107,109,110,111,112,113,114,115,116,117,118,119,120
%N A184425 Lower s-Wythoff sequence, where s=A000217 (triangular numbers).  Complement of A184426.
%C A184425 See A184117 for the definition of lower and upper s-Wythoff sequences.
%t A184425 mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
%t A184425 s[n_]:=n (n+1)/2;a[1]=1;b[n_]:=b[n]=s[n]+a[n];
%t A184425 a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,1,n-1}]]];
%t A184425 Table[s[n],{n,40}]
%t A184425 Table[a[n],{n,120}]
%t A184425 Table[b[n],{n,100}]
%Y A184425 Cf. A184117, A184426.
%K A184425 nonn
%O A184425 1,2
%A A184425 _Clark Kimberling_, Jan 14 2011