OFFSET
1,2
MATHEMATICA
f[n_]=4+Sum[Mod[Floor[n/4^m], 4], {m, 1, 10}]
Table[Mod[n, f[n]], {n, 1, 2000}]
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Roger L. Bagula, Jan 19 2004
STATUS
approved