OFFSET
1,1
MATHEMATICA
Run the second Mathematica line of A091938, then g[n_] := (n + 1 - Count[ IntegerDigits[f[n], 2], 1]); Select[ Range[100], g[ # ] == 2 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 20 2004, corrected Nov 02 2006
STATUS
approved