The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #4 Nov 03 2012 14:57:55
%S 113,131,137,173,179,197,311,313,317,373,379,419,431,479,613,617,619,
%T 673,719,797,971,1373,3137,3797,6131,6173,6197,9719
%N Primes > 100 in which every multi-digit substring is also prime.
%C Minimum number of digits is taken to be 3 as all two-digit primes would be trivial members.
%e 9719 is a member becauase 97, 71, 19, 971, 719, 9719 are all primes.
%t Select[Prime[Range[26,1300]],And@@PrimeQ[Flatten[Table[FromDigits/@ Partition[ IntegerDigits[#],n,1],{n,2,IntegerLength[#]-1}]]]&] (* _Harvey P. Dale_, Nov 03 2012 *)
%Y Cf. This sequence is a subsequence of A069488 - Primes > 100 in which every substring of length 2 is also prime.
%K base,fini,full,nonn
%O 1,1
%A _Tanya Khovanova_, Sep 09 2007