|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|