%I #4 Mar 30 2012 17:30:59
%S 14,22,26,36,38,42,54,57,62,70,78,81,90,94,110,122,132,134,138,142,
%T 147,150,158,166,168,171,172,174,178,182,190,194,198,206,210,222,238,
%U 254,285,294,312,315,318,334,336,350,366,372,382,405,414,416,432,434,446,454
%N Where A092111 equals 2.
%C Not as obvious as A092100, this sequence differs from multiples of 8 plus 6 (A017137).
%t Run the second Mathematica line of A091938, then g[n_] := (n + 1 - Count[ IntegerDigits[f[n], 2], 1]); Select[ Range[100], g[ # ] == 2 &]
%Y Cf. A092111, A091935.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Feb 20 2004, corrected Nov 02 2006
|