OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
MATHEMATICA
A192895[n_] := DivisorSum[n, Total[IntegerDigits[#, 2]]*(-1)^Boole[# == n]& ]; Reap[For[n=1, n<300, n++, If[A192895[n] <= 0, Sow[n]]]][[2, 1]] (* Jean-François Alcover, Dec 05 2015 *)
PROG
(PARI)
A192895(n) = sumdiv(n, d, hammingweight(d)*(-1)^(d==n));
isA257691(n) = (A192895(n) <= 0);
n=i=0; while(i < 10000, n++; if(isA257691(n), i++; write("b257691.txt", i, " ", n))); \\ Charles R Greathouse IV, Feb 07 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 11 2015
STATUS
approved