A037425 Positive numbers having the same set of digits in base 4 and base 7.

1, 2, 3, 9, 52, 106, 352, 394, 415, 444, 462, 492, 497, 504, 505, 506, 507, 707, 708, 745, 756, 757, 758, 759, 834, 840, 1036, 1037, 1038, 1039, 1079, 1080, 1085, 1134, 2418, 2424, 2452, 2464, 2465, 2466, 2467, 2502, 2509, 2516, 2520, 2761, 2845

Offset

1,2

Links

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

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A307069 A255739 A037389 * A226967 A181273 A270394

Adjacent sequences: A037422 A037423 A037424 * A037426 A037427 A037428

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Corrected by Don Reble, Apr 28 2006

Name edited by John Cerkan, Feb 06 2017

Status

approved