login
A111066
Numbers with digits 1 and 2 and at least one of each.
4
12, 21, 112, 121, 122, 211, 212, 221, 1112, 1121, 1122, 1211, 1212, 1221, 1222, 2111, 2112, 2121, 2122, 2211, 2212, 2221, 11112, 11121, 11122, 11211, 11212, 11221, 11222, 12111, 12112, 12121, 12122, 12211, 12212, 12221, 12222, 21111, 21112, 21121, 21122, 21211
OFFSET
1,1
LINKS
MATHEMATICA
FromDigits /@ Select[ IntegerDigits[ Range[210], 3], Union[ # ] == {1, 2} &] (* Robert G. Wilson v, Oct 09 2005 *)
Union[FromDigits/@Select[Flatten[Table[Tuples[{1, 2}, n], {n, 2, 5}], 1], Union[#] == {1, 2}&]] (* Harvey P. Dale, Sep 05 2013 *)
PROG
(Python)
from itertools import count, islice
def agen():
for i in count(1):
s = bin(i+1)[3:].replace('1', '2').replace('0', '1')
if 0 < s.count('1') < len(s):
yield int(s)
print(list(islice(agen(), 42))) # Michael S. Branicky, Dec 21 2021
CROSSREFS
Equals A007931 minus A000042 and A002276. Supersequence of A214218.
Sequence in context: A048344 A039402 A043225 * A201015 A044005 A321771
KEYWORD
easy,nonn,base
AUTHOR
Alexandre Wajnberg & Youri Mora, Oct 08 2005
EXTENSIONS
More terms from Robert G. Wilson v, Oct 09 2005
Crossrefs from Charles R Greathouse IV, Aug 03 2010
STATUS
approved