A212302 Numbers k whose sum of proper odious divisors (A000069) equals k.
28, 496, 8128, 415800, 2096128, 33550336, 8589869056
Offset: 1
Programs
-
Mathematica
okQ[n_] := DivisorSum[n, If[OddQ[Total[IntegerDigits[#, 2]]] && #
Jean-François Alcover, Dec 06 2015 *) -
PARI
is(n)=sumdiv(n,d,if(hammingweight(d)%2 && d
Charles R Greathouse IV, Oct 24 2013
Comments