A037417 Positive numbers having the same set of digits in base 3 and base 5.

1, 2, 7, 30, 35, 51, 55, 60, 127, 132, 135, 136, 137, 157, 161, 175, 176, 177, 185, 251, 257, 261, 275, 276, 277, 285, 301, 305, 627, 632, 636, 652, 657, 660, 661, 662, 675, 676, 677, 680, 681, 682, 685, 686, 687, 752, 756, 761, 762, 777, 785, 800, 801, 802

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

Sequence in context: A093034 A125174 A270526 * A042913 A041805 A173233

Adjacent sequences: A037414 A037415 A037416 * A037418 A037419 A037420

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Don Reble, Apr 28 2006

Status

approved