OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[350], Divisible[2^#+1, DigitCount[#, 2, 1]]&] (* Harvey P. Dale, Feb 19 2011 *)
PROG
(PARI) isok(n) = !((2^n+1) % hammingweight(n)); \\ Michel Marcus, Nov 29 2013
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Benoit Cloitre, Sep 17 2002
STATUS
approved