|
%I #3 Jul 14 2012 11:32:32
%S 353359367,193319491951,334733593361,344934573461,346734693491,
%T 732173317333,902990419043,104591046310477,133091331313327,
%U 141591417314177,146571466914683,150131501715031,154431545115461
%N Emirps (A007500) which are concatenation of three consecutive primes (A030469).
%C A subsequence of A007500, A030469, A132903.
%F A167517 = A007500 n A030469 = A007500 n A132903 (where "n" means intersection).
%o (PARI) for(i=1,9999, isprime(eval(p=Str(prime(i),prime(i+1),prime(i+2)))) & isprime(eval(concat(vecextract(Vec(p),"-1..1"))))& print1(p,", "))
%K base,nonn
%O 1,1
%A Jonathan vos Post and _M. F. Hasler_, Nov 10 2009
|
