login
A032823
Numbers whose set of base-11 digits is {1,4}.
1
1, 4, 12, 15, 45, 48, 133, 136, 166, 169, 496, 499, 529, 532, 1464, 1467, 1497, 1500, 1827, 1830, 1860, 1863, 5457, 5460, 5490, 5493, 5820, 5823, 5853, 5856, 16105, 16108, 16138, 16141, 16468, 16471, 16501, 16504, 20098, 20101, 20131, 20134, 20461, 20464
OFFSET
1,2
MATHEMATICA
fQ[n_]:=Union@Join[{1, 4}, IntegerDigits[n, 11]]=={1, 4}; Select[Range[0, 80000], fQ] (* Vincenzo Librandi, May 25 2012 *)
Flatten[Table[FromDigits[#, 11]&/@Tuples[{1, 4}, n], {n, 5}]] (* Harvey P. Dale, Feb 28 2015 *)
PROG
(Magma) [n: n in [1..21000] | Set(IntegerToSequence(n, 11)) subset {1, 4}]; // Bruno Berselli, May 25 2012
CROSSREFS
Sequence in context: A088510 A121728 A324786 * A224785 A195547 A335528
KEYWORD
nonn,base,easy
STATUS
approved