OFFSET
1,1
COMMENTS
Where 4 appears in A091935.
This sequence differs from multiples of 8 (A008590) very little but significantly; even fewer are odd.
Essentially the same as A081504. - R. J. Mathar, Sep 08 2008
MATHEMATICA
Compute the second line of the Mathematica code for A091936, then Do[ If[ Count[ IntegerDigits[ f[n], 2], 1] == 4, Print[n]], {n, 1, 400}] (* Robert G. Wilson v, Feb 19 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 19 2004
STATUS
approved