A037418 Positive numbers having the same set of digits in base 3 and base 6.

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

Rémy Sigrist, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A037415 A037416 A037417 * A037419 A037420 A037421

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Corrected by Don Reble, Apr 28 2006

Status

approved