OFFSET
1,2
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
MAPLE
q:= n-> (f-> is(f(3)=f(4)))(k-> {convert(n, base, k)[]}):
select(q, [$1..1000])[]; # Alois P. Heinz, Oct 30 2020
MATHEMATICA
Select[Range[400], Union[IntegerDigits[#, 3]]==Union[IntegerDigits[#, 4]]&] (* Harvey P. Dale, Sep 15 2023 *)
PROG
(PARI) isok(n) = Set(digits(n, 3)) == Set(digits(n, 4)); \\ Michel Marcus, Jan 22 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Don Reble, Apr 28 2006
STATUS
approved