%I #25 Apr 18 2020 00:43:01
%S 2,3,5,7,22,33,55,77,222,333,555,735,777,2222,2232,2322,2772,3222,
%T 3333,3555,5355,5535,5555,5775,7777,22222,22332,22722,23232,23322,
%U 23772,27272,32232,32322,33222,33333,33555,35355,35535,37737,53355,53535
%N Numbers n with property that every digit is a prime factor of n.
%C This is a regular language in base 10. Almost all members of this sequence are multiples of either 42 or 105. There are about 2/63 * 3^n members of this sequence up to 10^n. - _Charles R Greathouse IV_, Nov 09 2011
%H Harry J. Smith and Charles R Greathouse IV, <a href="/A062239/b062239.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Smith)
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>
%e 77322 is divisible by 7, 3 and 2.
%t Select[Range[2, 50000], Complement[IntegerDigits[#], FactorInteger[#][[All, 1]]] == {} &] (* _Alonso del Arte_, Dec 05 2011 *)
%o (PARI) { n=0; for (m=1, 10^10, t=m; b=1; while (t>0, d=t%10; t=(t-d)/10; if (!isprime(d) || m%d, b=0; break)); if (b, write("b062239.txt", n++, " ", m); if (n==1000, return)) ) } \\ _Harry J. Smith_, Feb 17 2010
%K base,easy,nonn
%O 1,1
%A _Erich Friedman_, Jun 30 2001