A131648 Primes > 100 in which every multi-digit substring is also prime.

113, 131, 137, 173, 179, 197, 311, 313, 317, 373, 379, 419, 431, 479, 613, 617, 619, 673, 719, 797, 971, 1373, 3137, 3797, 6131, 6173, 6197, 9719

Offset: 1

Author

Tanya Khovanova, Sep 09 2007

Keywords

• base
• fini
• full
• nonn

Comments

Minimum number of digits is taken to be 3 as all two-digit primes would be trivial members.

Examples

			9719 is a member becauase 97, 71, 19, 971, 719, 9719 are all primes.
		

Crossrefs

Cf. This sequence is a subsequence of A069488 - Primes > 100 in which every substring of length 2 is also prime.

Programs

Mathematica

Select[Prime[Range[26,1300]],And@@PrimeQ[Flatten[Table[FromDigits/@ Partition[ IntegerDigits[#],n,1],{n,2,IntegerLength[#]-1}]]]&] (* Harvey P. Dale, Nov 03 2012 *)