A115924 Numbers k such that k and 4*k, taken together, are pandigital.
15237, 17235, 17352, 20394, 20439, 21735, 23517, 23715
Offset: 1
Examples
15237 and 60948=15237*4 together contain all the 10 digits once.
Programs
-
Mathematica
Select[Range[10234,24987],Sort[Join[IntegerDigits[4 #],IntegerDigits[ #]]] == Range[0,9]&] (* Harvey P. Dale, Jun 01 2017 *)
-
PARI
{for(n=10234, 24987, #Set(digits(n))==5||next; #Set(digits(n*4))==5 && #Set(concat(digits(n), digits(n*4)))==10 && print1(n", "))} \\ M. F. Hasler, Feb 08 2014