login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #19 Dec 22 2024 12:06:15

%S 1,2,17,66,129,136,514,522,528,529,530,578,592,640,641,642,1025,1032,

%T 1033,1034,1041,1088,1097,1104,1105,1106,1153,1160,4098,4106,4112,

%U 4113,4114,4162,4170,4176,4177,4178,4224,4225,4226,4232,4233,4234

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

%H John Cerkan, <a href="/A037420/b037420.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[5000],Union[IntegerDigits[#,3]]==Union[IntegerDigits[#,8]]&] (* _Harvey P. Dale_, Dec 22 2024 *)

%o (PARI) is(n)=Set(digits(n, 3))==Set(digits(n, 8)) \\ _Charles R Greathouse IV_, Feb 11 2017

%K nonn,base

%O 1,2

%A _Clark Kimberling_

%E Corrected by _Don Reble_, Apr 28 2006

%E Name edited by _John Cerkan_, Jan 25 2017