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 A213737 #12 Dec 19 2014 18:54:34 %S A213737 42279945,42315045,42514845,43092645,43767645,45981645,46149045, %T A213737 46321845,52226745,52654695,53159595,56789745,56841045,57321645, %U A213737 58193745,59869345,61277145,61421595,61860445,62146545,62866645,62936295,62969845,63395295,63411595 %N A213737 Odd numbers whose set of prime factors (taken with multiplicity) uses each digit from 0 to 9 exactly once. %C A213737 This sequence also contains numbers not ending in 5 (i.e., 78369189). %C A213737 a(1916) = 240510701 is the first semiprime with this property. %C A213737 No pandigital number is in the sequence. %H A213737 Arkadiusz Wesolowski, <a href="/A213737/b213737.txt">Table of n, a(n) for n = 1..10000</a> %H A213737 Wikipedia, <a href="http://en.wikipedia.org/wiki/Prime_factor">Prime factor</a> %e A213737 42279945 = 3*5*1049*2687 is in the sequence since the set {3, 5, 1049, 2687} can be formed from the digits 0 to 9 and each digit is used only once. %t A213737 lst = {}; Do[If[Equal[Sort@Flatten@IntegerDigits@FactorInteger[n][[All, {1}]], {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}] && SquareFreeQ[n], AppendTo[lst, n]], {n, 4*10^7 + 1, 7*10^7, 2}]; lst %t A213737 ed1Q[n_]:=Module[{fi=FactorInteger[n]},Max[Transpose[fi][[2]]]==1 && Union[ Flatten[IntegerDigits/@Transpose[fi][[1]]]]==Range[0,9]]; Select[Range[ 4*10^7+ 1,6.4*10^7,2 ],ed1Q] (* _Harvey P. Dale_, Dec 19 2014 *) %Y A213737 Subsequence of A058909. %K A213737 base,fini,nonn %O A213737 1,1 %A A213737 _Arkadiusz Wesolowski_, Jun 19 2012