OFFSET
0,4
COMMENTS
Is this a shifted version of A036578? - R. J. Mathar, Sep 30 2013 [Yes: see Thm. 4 in Fraenkel (2011). Don Reble, Nov 02 2023]
LINKS
Aviezri S. Fraenkel, Aperiodic Subtraction Games, The Electronic Journal of Combinatorics, 18(2) (2011).
Eric Sopena, i-Mark: A new subtraction division game, arXiv:1509.04199 [cs.DM], 2015.
MAPLE
a:=proc(n) local i:
option remember:
if n = 0 then
return 0:
else
for i from 0 while i in {a(n-1), a(floor(n/2))} do od:
return i:
fi:
end:
MATHEMATICA
a[0]=0; a[n_] := a[n]=(i=0; While[i==a[n-1] || i==a[Floor[n/2]], i++]; i);
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Dec 06 2017, from Maple *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Nathan Fox, Sep 28 2013
STATUS
approved