OFFSET
1
LINKS
EXAMPLE
MATHEMATICA
a[n_] := If[DivisorSum[n, DigitCount[#, 2, 1] &] > 2 * DigitCount[n, 2, 1], 0, 1]; Array[a, 100] (* Amiram Eldar, Jul 20 2023 *)
PROG
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Nov 10 2017
STATUS
approved