OFFSET
1,1
COMMENTS
Two-sided primes: deleting any number of digits at left or at right, but not both, leaves a prime.
Primes in which every digit string containing the most significant digit or the least significant digit is prime. - Amarnath Murthy, Sep 24 2003
REFERENCES
David Wells, The Penguin Dictionary of Curious and Interesting Numbers, p. 178 (Rev. ed. 1997).
LINKS
I. O. Angell and H. J. Godwin, On Truncatable Primes Math. Comput. 31, 265-267, 1977.
Patrick De Geest, The list of 4260 left-truncatable primes
MATHEMATICA
tspQ[n_] := Module[{idn=IntegerDigits[n], l}, l=Length[idn]; Union[PrimeQ/@(FromDigits/@ Join[Table[Take[idn, i], {i, l}], Table[Take[idn, -i], {i, l}]])]=={True}] Select[Prime[Range[PrimePi[740000]]], tspQ]
CROSSREFS
KEYWORD
nonn,fini,full,base
AUTHOR
Mario Velucchi (mathchess(AT)velucchi.it)
EXTENSIONS
Corrected by David W. Wilson
Additional comments from Harvey P. Dale, Jul 10 2002
STATUS
approved