OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Select[Range[200], FreeQ[#, 0] && Length[Union[#]] == 2 & [IntegerDigits[#]] &] (* Paolo Xausa, May 06 2024 *)
PROG
(Haskell)
a101594 n = a101594_list !! (n-1)
a101594_list = filter ((== 2) . a043537) a052382_list
-- Reinhard Zumkeller, Jun 18 2013
(Python)
def ok(n): s = set(str(n)); return len(s) == 2 and "0" not in s
print([k for k in range(132) if ok(k)]) # Michael S. Branicky, Dec 13 2021
CROSSREFS
KEYWORD
AUTHOR
David Wasserman, Dec 07 2004
STATUS
approved