OFFSET
1,2
MATHEMATICA
Table[DivisorSum[n, Mod[StirlingS2[n, #], 2] &], {n, 1, 100}]
PROG
(PARI) a(n) = sumdiv(n, d, stirling(n, d, 2) % 2); \\ Michel Marcus, Nov 02 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Nov 02 2021
STATUS
approved