OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
F:= proc(d) local Res, x2, x3, x5, x7, x;
Res:= NULL:
for x2 from d-3 to 1 by -1 do
for x3 from d-x2-2 to 1 by -1 do
for x5 from d-x2-x3-1 to 1 by -1 do
x7:= d-x2-x3-x5;
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));
if isprime(x) then Res:= Res, x fi
od od od:
Res;
end proc:
seq(F(ithprime(i)), i=3..6); # Robert Israel, Feb 03 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jan 01 2009
EXTENSIONS
Extended by Ray Chandler, Jan 07 2009
STATUS
approved