Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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