OFFSET
1,1
LINKS
Zak Seidov and Robert Israel, Table of n, a(n) for n = 1..10000 (n = 1..1205 from Zak Seidov)
MAPLE
P:= select(isprime, [2, seq(p, p=3..10^4, 2)]):
select(isprime, [seq(P[i+3]+10^(1+ilog10(P[i+3]))*P[i+2] + 10^(2+ilog10(P[i+3])+ilog10(P[i+2]))*P[i+1] + 10^(3+ilog10(P[i+3])+ilog10(P[i+2])+ilog10(P[i+1]))*P[i], i=1..nops(P)-3)]); # Robert Israel, Apr 14 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 23 2010
STATUS
approved