OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000 (first 200 terms from Vincenzo Librandi)
MATHEMATICA
fQ[n_]:=Union@Join[{1, 2}, IntegerDigits[n, 11]]=={1, 2}; Select[Range[0, 18000], fQ] (* Vincenzo Librandi, May 25 2012 *)
Table[FromDigits[#, 11]&/@Tuples[{1, 2}, n], {n, 5}]//Flatten (* Harvey P. Dale, Mar 01 2016 *)
PROG
(Magma) [n: n in [1..20000] | Set(IntegerToSequence(n, 11)) subset {1, 2}]; // Vincenzo Librandi, May 25 2012
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved