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