OFFSET
1,1
MATHEMATICA
Select[Range[30000], SubsetQ[{2, 9}, Sort[DeleteDuplicates[IntegerDigits[#]]]] &] (* Stefano Spezia, Aug 06 2025 *)
PROG
(Magma) [n: n in [1..100000] | Set(IntegerToSequence(n, 10)) subset {2, 9}];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Apr 06 2017
STATUS
approved
