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

%I #18 Apr 24 2021 02:03:55

%S 1,2,3,4,5,6,7,614,1124,1233,1273,1653,2154,2466,3160,3161,3162,3163,

%T 3164,3165,3166,3167,3226,4100,4711,5117,5213,5421,6414,6541,7105,

%U 7125,7135,7151,7671,10241,11257,11625,11662,11726,13000,13271,13320

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

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

%e 1233 is in the sequence because 1233 in base 8 is 2321.

%t Select[Range@ 13400, Union@ IntegerDigits[#, 8] == Union@ IntegerDigits@ # &] (* _Michael De Vlieger_, Feb 18 2017 *)

%o (PARI) isok(n) = Set(digits(n, 8)) == Set(digits(n)); \\ _Michel Marcus_, Feb 18 2017

%Y Subsequence of A037406.

%Y Cf. A007094

%K nonn,base

%O 1,2

%A _Clark Kimberling_

%E More terms from _Don Reble_, Apr 28 2006

%E Edited by _John Cerkan_, Feb 17 2017