|
%I #9 Feb 04 2019 02:59:54
%S 23357,23557,2235557,2335577,2355557,22222222357,22222333577,
%T 22223333357,22223335577,22223335777,22223357777,22233577777,
%U 22333355777,22335555577,22355555557,22355555777,23333335577
%N Primes with a prime number of digits and using all of the prime digits 2, 3, 5, 7 repeated in strings, in that order.
%H Robert Israel, <a href="/A153771/b153771.txt">Table of n, a(n) for n = 1..10000</a>
%p F:= proc(d) local Res, x2, x3, x5, x7,x;
%p Res:= NULL:
%p for x2 from d-3 to 1 by -1 do
%p for x3 from d-x2-2 to 1 by -1 do
%p for x5 from d-x2-x3-1 to 1 by -1 do
%p x7:= d-x2-x3-x5;
%p x:= 7/9*(10^x7-1) + 5/9*(10^(x5+x7)-10^x7) + 3/9*(10^(x3+x5+x7)-10^(x5+x7)) + 2/9*(10^d-10^(x3+x5+x7));
%p if isprime(x) then Res:= Res, x fi
%p od od od:
%p Res;
%p end proc:
%p seq(F(ithprime(i)),i=3..6); # _Robert Israel_, Feb 03 2019
%Y Cf. A153770.
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Jan 01 2009
%E Extended by _Ray Chandler_, Jan 07 2009
|
