OFFSET
0
LINKS
MATHEMATICA
A034968[n_] := Module[{a = n, i = 2}, While[i! <= n, a-=(i-1)*Floor[n/i++!]]; a];
Array[Mod[A034968[#], 2] &, 100, 0] (* Paolo Xausa, Sep 02 2024 *)
PROG
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen and Peter Munn, Aug 08 2024
STATUS
approved