A037422 Positive numbers having the same set of digits in base 3 and base 10.

1, 2, 10, 20, 102, 122, 201, 210, 211, 212, 1000, 1011, 1020, 1021, 1022, 1121, 1200, 1211, 1220, 2000, 2001, 2010, 2011, 2012, 2021, 2022, 2100, 2110, 2120, 2201, 2210, 10002, 10012, 10020, 10021, 10022, 10102, 10122, 10200, 10210, 10211

Offset

1,2

Links

John Cerkan, Table of n, a(n) for n = 1..10000

Mathematica

fQ[n_] := Union@ IntegerDigits@ n == Union@ IntegerDigits[n, 3]; Select[ Range@11000, fQ] (* Robert G. Wilson v, Feb 02 2017 *)

Prog

(PARI) is(n)=Set(digits(n, 3))==Set(digits(n)) \\ Charles R Greathouse IV, Feb 11 2017

Crossrefs

Subsequence of A007089.

Sequence in context: A004643 A284213 A156818 * A136735 A294549 A294550

Adjacent sequences: A037419 A037420 A037421 * A037423 A037424 A037425

Keyword

nonn,base

Author

Clark Kimberling

Extensions

Corrected by Don Reble, Apr 28 2006

Status

approved