OFFSET
1,1
COMMENTS
Minimum number of digits is taken to be 3 as all two-digit primes would be trivial members.
EXAMPLE
9719 is a member becauase 97, 71, 19, 971, 719, 9719 are all primes.
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 *)
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Tanya Khovanova, Sep 09 2007
STATUS
approved