A037420 Positive numbers having the same set of digits in base 3 and base 8.

1, 2, 17, 66, 129, 136, 514, 522, 528, 529, 530, 578, 592, 640, 641, 642, 1025, 1032, 1033, 1034, 1041, 1088, 1097, 1104, 1105, 1106, 1153, 1160, 4098, 4106, 4112, 4113, 4114, 4162, 4170, 4176, 4177, 4178, 4224, 4225, 4226, 4232, 4233, 4234

Offset

1,2

Links

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

Mathematica

Select[Range[5000], Union[IntegerDigits[#, 3]]==Union[IntegerDigits[#, 8]]&] (* Harvey P. Dale, Dec 22 2024 *)

Prog

(PARI) is(n)=Set(digits(n, 3))==Set(digits(n, 8)) \\ Charles R Greathouse IV, Feb 11 2017

Crossrefs

Sequence in context: A176581 A303374 A357737 * A034721 A281708 A107815

Adjacent sequences: A037417 A037418 A037419 * A037421 A037422 A037423

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Corrected by Don Reble, Apr 28 2006

Name edited by John Cerkan, Jan 25 2017

Status

approved