login
A294903
Number of divisors of n that are in A257691.
5
1, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 3, 2, 3, 3, 2, 2, 3, 2, 3, 3, 3, 2, 3, 3, 3, 2, 3, 2, 4, 2, 2, 3, 3, 3, 3, 2, 3, 3, 3, 2, 4, 2, 3, 3, 3, 2, 3, 2, 4, 3, 3, 2, 3, 3, 3, 3, 3, 2, 4, 2, 3, 3, 2, 3, 4, 2, 3, 3, 4, 2, 3, 2, 3, 4, 3, 3, 4, 2, 3, 2, 3, 2, 4, 3, 3, 3, 3, 2, 4, 3, 3, 3, 3, 4, 3, 2, 3, 3, 4, 2, 4, 2, 3, 4, 3, 2, 3, 2, 4, 4, 3, 2, 4, 3, 3, 3, 3, 4, 4
OFFSET
1,2
COMMENTS
Number of terms of A257691 that divide n.
LINKS
FORMULA
a(n) = Sum_{d|n} A294905(d).
a(n) = A294901(n) + A294905(n).
a(n) + A294904(n) = A000005(n).
MATHEMATICA
q[n_] := DivisorSum[n, DigitCount[#, 2, 1] &] <= 2*DigitCount[n, 2, 1]; a[n_] := DivisorSum[n, 1 &, q[#] &]; Array[a, 100] (* Amiram Eldar, Jul 20 2023 *)
PROG
(PARI)
A292257(n) = sumdiv(n, d, (d<n)*hammingweight(d));
A294905(n) = (A292257(n) <= hammingweight(n));
A294903(n) = sumdiv(n, d, A294905(d));
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Nov 10 2017
STATUS
approved