|
%I #19 Apr 23 2021 22:17:34
%S 1,2,36,37,38,44,48,49,50,72,73,74,79,228,252,253,254,264,288,289,290,
%T 294,300,433,438,439,440,468,469,470,474,475,476,480,481,482,504,505,
%U 506,1298,1304,1308,1309,1310,1334,1344,1368,1369,1370,1374,1380,1381
%N Positive numbers having the same set of digits in base 3 and base 6.
%H Rémy Sigrist, <a href="/A037418/b037418.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1500],Union[IntegerDigits[#,3]]==Union[IntegerDigits[#,6]]&] (* _Harvey P. Dale_, Nov 06 2012 *)
%o (PARI) isok(n) = Set(digits(n, 3)) == Set(digits(n, 6)); \\ _Michel Marcus_, Jan 22 2017
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E Corrected by _Don Reble_, Apr 28 2006
|
