OFFSET
1,3
LINKS
David Wolfe, When Multiplication Mixes Up Digits, Mathematics Magazine, Volume 80, Number 5, December 2007, pp.380-383
MAPLE
a := proc (n) local nn, nnn: nn := convert(123456789*n, base, 10): nnn := convert(nn, set): if nops(nn) = nops(nnn) then n else end if end proc: seq(a(n), n = 1 .. 80); # Emeric Deutsch, Jun 21 2009
MATHEMATICA
m=123456789; se=Select[Range[0, 99], Sort[id=IntegerDigits[m*# ]]==Union[id]&] (* Zak Seidov, Nov 04 2009 *)
Select[Range[0, 100], Max[DigitCount[123456789#]]==1&] (* Harvey P. Dale, Jun 02 2017 *)
CROSSREFS
KEYWORD
easy,fini,full,nonn,base
AUTHOR
Kyle Stern, Jun 17 2009
EXTENSIONS
a(1)=0 added by Zak Seidov, Nov 04 2009
Edited by Charles R Greathouse IV, Aug 02 2010
STATUS
approved