A037416 Positive numbers having the same set of digits in base 3 and base 4.

1, 2, 22, 25, 33, 41, 66, 73, 81, 84, 88, 96, 97, 98, 100, 104, 129, 132, 137, 144, 145, 146, 149, 162, 168, 256, 258, 262, 264, 265, 266, 273, 278, 281, 288, 289, 290, 292, 293, 294, 296, 297, 298, 322, 324, 325, 326, 329, 330, 336, 337, 338, 344, 353, 356

Offset

1,2

Links

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

Maple

q:= n-> (f-> is(f(3)=f(4)))(k-> {convert(n, base, k)[]}):
select(q, [$1..1000])[];  # Alois P. Heinz, Oct 30 2020

Mathematica

Select[Range[400], Union[IntegerDigits[#, 3]]==Union[IntegerDigits[#, 4]]&] (* Harvey P. Dale, Sep 15 2023 *)

Prog

(PARI) isok(n) = Set(digits(n, 3)) == Set(digits(n, 4)); \\ Michel Marcus, Jan 22 2017

Crossrefs

Sequence in context: A080433 A022373 A111751 * A057871 A152243 A074160

Adjacent sequences: A037413 A037414 A037415 * A037417 A037418 A037419

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Don Reble, Apr 28 2006

Status

approved