cp's OEIS Frontend

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.

A045775 Extension of Beatty sequence; complement of A045774.

This page as a plain text file.
%I A045775 #19 Oct 25 2014 13:27:08
%S A045775 0,5,10,15,20,28,33,38,43,51,56,61,66,74,79,84,89,97,102,107,112,117,
%T A045775 122,127,135,140,145,150,158,163,168,173,181,186,191,196,204,209,214,
%U A045775 219,224,229,234,242,247,252,257,265,270,275,280,288,293,298,303
%N A045775 Extension of Beatty sequence; complement of A045774.
%C A045775 (s,t)-sequences; the case s=3, t=2.
%D A045775 Clark Kimberling, Complementary Equations, Journal of Integer Sequences, Vol. 10 (2007), Article 07.1.4.
%H A045775 A. S. Fraenkel, <a href="http://arXiv.org/abs/math.CO/9809074">Heap games, numeration systems and sequences</a>, Annals of Combinatorics, 2 (1998), 197-210.
%H A045775 Wen An Liu and Xiao Zhao, <a href="http://dx.doi.org/10.1016/j.dam.2014.08.009">Adjoining to (s,t)-Wythoff's game its P-positions as moves</a>, Discrete Applied Mathematics, 27 August 2014; see Table 5.
%H A045775 <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>
%F A045775 a(n) = 3*A045774(n)+2*n.
%t A045775 s=3; t=2;
%t A045775 mex:=First[Complement[Range[1,Max[#1]+1],#1]]&;
%t A045775 a[0]=0; b[n_]:=b[n]=s*a[n]+t*n;
%t A045775 a[n_]:=a[n]=mex[Flatten[Table[{a[i],b[i]},{i,0,n-1}]]];
%t A045775 Table[a[n],{n,200}] (* A045774 *)
%t A045775 Table[b[n],{n,200}] (* A045775 *)
%t A045775 (* From _Clark Kimberling_, Apr 02 2011 *)
%Y A045775 Cf. A045749, A045750.
%K A045775 nonn
%O A045775 0,2
%A A045775 _Aviezri S. Fraenkel_