OFFSET
1,1
EXAMPLE
10459 and 83672 = 10459*8 together contain all the 10 digits once.
MATHEMATICA
f[a_]:=Join[IntegerDigits[a], IntegerDigits[8*a]]; Select[Range[10000, 100000], ContainsExactly[f[#], {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}]&&Length[f[#]]==10&] (* James C. McMahon, Jul 30 2024 *)
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved