A037426 Positive numbers having the same set of digits in base 4 and base 8.

1, 2, 3, 64, 65, 66, 67, 128, 129, 130, 131, 192, 193, 194, 195, 528, 529, 530, 531, 578, 592, 641, 656, 667, 720, 730, 1032, 1033, 1034, 1035, 1090, 1096, 1153, 1160, 1224, 4096, 4097, 4098, 4099, 4106, 4114, 4160, 4161, 4162, 4163, 4170, 4178

Offset

1,2

Links

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

Mathematica

Select[Range@ 4200, Union@ IntegerDigits[#, 4] == Union@ IntegerDigits[#, 8] &] (* Michael De Vlieger, Feb 07 2017 *)

Prog

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

Crossrefs

Sequence in context: A061452 A369903 A280582 * A004854 A356797 A356785

Adjacent sequences: A037423 A037424 A037425 * A037427 A037428 A037429

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Corrected by Don Reble, Apr 28 2006

Name edited by John Cerkan, Feb 06 2017

Status

approved