A037414 Positive numbers having the same set of digits in base 2 and base 9.

1, 9, 81, 82, 90, 729, 730, 738, 739, 810, 811, 819, 6561, 6562, 6570, 6571, 6642, 6643, 6651, 6652, 7290, 7291, 7299, 7300, 7371, 7372, 7380, 59049, 59050, 59058, 59059, 59130, 59131, 59139, 59140, 59778, 59779, 59787, 59788, 59859, 59860, 59868, 59869

Offset

1,2

Links

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

Mathematica

Select[Range[60000], Union[IntegerDigits[#, 2]]==Union[IntegerDigits[#, 9]]&] (* Harvey P. Dale, May 05 2026 *)

Prog

(PARI) isok(n) = Set(binary(n)) == Set(digits(n, 9)); \\ Michel Marcus, Jan 21 2017

Crossrefs

Subsequence of A033046.

Sequence in context: A008463 A203656 A043087 * A395594 A161147 A209220

Adjacent sequences: A037411 A037412 A037413 * A037415 A037416 A037417

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Name edited by John Cerkan, Jan 20 2017

a(28)-a(43) from John Cerkan, Jan 20 2017

Status

approved