A115923 Numbers k such that k and 3*k, taken together, are pandigital.

16794, 17694, 20583, 23058, 30582, 32058

Offset

1,1

Links

Table of n, a(n) for n=1..6.

Example

16794 and 50382=16794*3 together contain all the 10 digits once.

Mathematica

pdQ[n_]:=Sort[Flatten[Join[{IntegerDigits[n], IntegerDigits[3n]}]]] == Range[0, 9]; Select[Range[10000, 99999], pdQ] (* Harvey P. Dale, Jul 07 2012 *)

Prog

(PARI) {for(n=10234, 49876, #Set(digits(n))==5||next; #Set(digits(n*3))==5 && #Set(concat(digits(n), digits(n*3)))==10 && print1(n", "))} \\ M. F. Hasler, Feb 08 2014

Crossrefs

Cf. A054383, A115922, A115924, A115925, A114126, A115927.

Sequence in context: A183844 A034820 A053074 * A243836 A244107 A264183

Adjacent sequences: A115920 A115921 A115922 * A115924 A115925 A115926

Keyword

nonn,base,fini,full

Author

Giovanni Resta, Feb 06 2006

Status

approved