A037410 Positive numbers having the same set of digits in base 2 and base 5.

1, 5, 25, 26, 30, 31, 125, 126, 130, 131, 150, 151, 155, 625, 626, 630, 631, 650, 651, 655, 656, 750, 751, 755, 756, 775, 776, 780, 3125, 3126, 3130, 3131, 3150, 3151, 3155, 3156, 3250, 3251, 3255, 3256, 3275, 3276, 3280, 3281

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• John Cerkan, Table of n, a(n) for n = 1..10000

Crossrefs

Subsequence of A033042.

Programs

Mathematica

Select[Range[3500],Union[IntegerDigits[#,2]]==Union[IntegerDigits[#,5]]&] (* Harvey P. Dale, May 08 2025 *)

PARI

isok(n) = Set(digits(n, 2)) == Set(digits(n, 5)); \\ Michel Marcus, Jan 11 2017