login
A037418
Positive numbers having the same set of digits in base 3 and base 6.
1
1, 2, 36, 37, 38, 44, 48, 49, 50, 72, 73, 74, 79, 228, 252, 253, 254, 264, 288, 289, 290, 294, 300, 433, 438, 439, 440, 468, 469, 470, 474, 475, 476, 480, 481, 482, 504, 505, 506, 1298, 1304, 1308, 1309, 1310, 1334, 1344, 1368, 1369, 1370, 1374, 1380, 1381
OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[1500], Union[IntegerDigits[#, 3]]==Union[IntegerDigits[#, 6]]&] (* Harvey P. Dale, Nov 06 2012 *)
PROG
(PARI) isok(n) = Set(digits(n, 3)) == Set(digits(n, 6)); \\ Michel Marcus, Jan 22 2017
CROSSREFS
Sequence in context: A073406 A256060 A096513 * A239343 A058517 A328963
KEYWORD
nonn,base
EXTENSIONS
Corrected by Don Reble, Apr 28 2006
STATUS
approved