|
%I #10 Sep 22 2012 06:50:12
%S 4,22,27,58,85,94,202,706,8005,80005,700006,800005,7000000000000006,
%T 80000000000000000005,80000000000000000000005,
%U 70000000000000000000000000006,80000000000000000000000000000000000005,700000000000000000000000000000000000000000000006
%N Smith numbers with either no internal digits or all internal digits are 0.
%C All semiprimes of the form 7*10^n + 6 and 8*10^n + 5 are in the sequence.
%H Vincenzo Librandi, <a href="/A204341/b204341.txt">Table of n, a(n) for n = 1..34</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SmithNumber.html">Smith Number</a>
%t e = 47; Sort[Join[{27}, 2*Select[Flatten[Union[Table[(2*10^n + 2)/2, {n, 0, e}], Table[(a*10^n + 13 - a)/2, {a, {5, 7, 9}}, {n, e}]]], PrimeQ], 5*Select[Table[(8*10^n + 5)/5, {n, e}], PrimeQ]]]
%Y Cf. A006753.
%K base,nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Jan 14 2012
|
