OFFSET
0,3
COMMENTS
(s,t)-sequences; the case s=2, t=3.
REFERENCES
Clark Kimberling, Complementary Equations, Journal of Integer Sequences, Vol. 10 (2007), Article 07.1.4.
LINKS
A. S. Fraenkel, Heap games, numeration systems and sequences, Annals of Combinatorics, 2 (1998), 197-210.
FORMULA
a(n)=mex {a(i), b(i):0<=i<n}, where b=A045682, mex S=least integer >= 0 not in the sequence S.
MATHEMATICA
s=2; t=3;
mex:=First[Complement[Range[1, Max[#1]+1], #1]]&;
a[0]=0; b[n_]:=b[n]=s*a[n]+t*n;
a[n_]:=a[n]=mex[Flatten[Table[{a[i], b[i]}, {i, 0, n-1}]]];
Table[a[n], {n, 200}] (* A045681 *)
Table[b[n], {n, 200}] (* A045682 *)
(* From Clark Kimberling, Apr 02 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved