OFFSET
1,4
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= n -> evalb(n mod (2^numboccur(1, convert(n, base, 2))-1) = 0):
A100290:= select(filter, [$1..1000]):
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 08 2017
STATUS
approved