A037419 Positive numbers having the same set of digits in base 3 and base 7.

1, 2, 51, 63, 99, 105, 345, 351, 357, 358, 359, 401, 406, 441, 442, 443, 449, 457, 687, 693, 694, 695, 702, 735, 736, 737, 749, 785, 791, 2403, 2410, 2415, 2416, 2417, 2452, 2457, 2458, 2459, 2464, 2465, 2499, 2500, 2501, 2506, 2507, 2508, 2513

Offset

1,2

Links

Rémy Sigrist, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[2600], Union[IntegerDigits[#, 3]]==Union[IntegerDigits[#, 7]]&]  (* Harvey P. Dale, Mar 11 2011 *)

Prog

(PARI) isok(n) = Set(digits(n, 3)) == Set(digits(n, 7)); \\ Michel Marcus, Jan 22 2017

Crossrefs

Sequence in context: A203746 A230561 A057943 * A078165 A180110 A037058

Adjacent sequences: A037416 A037417 A037418 * A037420 A037421 A037422

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Corrected by Don Reble, Apr 28 2006

Status

approved