This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A161750 #13 Jun 02 2017 10:33:42 %S A161750 0,1,2,4,5,7,8,10,11,13,14,16,17,20,22,23,25,26,31,32,34,35,40,41,43, %T A161750 44,50,52,53,61,62,70,71,80 %N A161750 Numbers n such that the decimal digits of 123456789*n are all distinct. %H A161750 David Wolfe, <a href="http://homepages.gac.edu/~wolfe/papers/pandigital/mathmag.pdf">When Multiplication Mixes Up Digits</a>, Mathematics Magazine, Volume 80, Number 5, December 2007, pp.380-383 %p A161750 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 %t A161750 m=123456789;se=Select[Range[0,99],Sort[id=IntegerDigits[m*# ]]==Union[id]&] (* _Zak Seidov_, Nov 04 2009 *) %t A161750 Select[Range[0,100],Max[DigitCount[123456789#]]==1&] (* _Harvey P. Dale_, Jun 02 2017 *) %Y A161750 Cf. A053654. [From _Zak Seidov_, Nov 04 2009] %K A161750 easy,fini,full,nonn,base %O A161750 1,3 %A A161750 _Kyle Stern_, Jun 17 2009 %E A161750 a(1)=0 added by _Zak Seidov_, Nov 04 2009 %E A161750 Edited by _Charles R Greathouse IV_, Aug 02 2010