login
A092112
Where A092111 equals 2.
2
14, 22, 26, 36, 38, 42, 54, 57, 62, 70, 78, 81, 90, 94, 110, 122, 132, 134, 138, 142, 147, 150, 158, 166, 168, 171, 172, 174, 178, 182, 190, 194, 198, 206, 210, 222, 238, 254, 285, 294, 312, 315, 318, 334, 336, 350, 366, 372, 382, 405, 414, 416, 432, 434, 446, 454
OFFSET
1,1
COMMENTS
Not as obvious as A092100, this sequence differs from multiples of 8 plus 6 (A017137).
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
Sequence in context: A113190 A169804 A354811 * A306146 A318929 A187776
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 20 2004, corrected Nov 02 2006
STATUS
approved