|
|
A115923
|
|
Numbers k such that k and 3*k, taken together, are pandigital.
|
|
5
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|