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