|
%I #17 Apr 14 2016 09:43:01
%S 2357,67717379,838997101,139149151157,149151157163,383389397401,
%T 503509521523,557563569571,577587593599,587593599601,601607613617,
%U 613617619631,727733739743,937941947953,1181118711931201
%N Primes which are concatenations of 4 consecutive primes.
%H Zak Seidov and Robert Israel, <a href="/A030473/b030473.txt">Table of n, a(n) for n = 1..10000</a> (n = 1..1205 from Zak Seidov)
%p P:= select(isprime,[2,seq(p,p=3..10^4,2)]):
%p 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
%Y Cf. A030461, A030469, A086040, A086041.
%K nonn,base
%O 1,1
%A _Patrick De Geest_
%E Edited by _Charles R Greathouse IV_, Apr 23 2010
|
