OFFSET
0,2
COMMENTS
(s,t)-sequences; the case s=2, t=3.
LINKS
A. S. Fraenkel, Heap games, numeration systems and sequences, Annals of Combinatorics, 2 (1998), 197-210.
FORMULA
a(n) = 2*A045681(n)+3*n.
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