|
|
A020994
|
|
Primes that are both left-truncatable and right-truncatable.
|
|
18
|
|
|
2, 3, 5, 7, 23, 37, 53, 73, 313, 317, 373, 797, 3137, 3797, 739397
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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
|
Cf. A033664, A024785, A032437, A024770, A052023, A052024, A052025, A050986, A050987, A254751, A254753.
|
|
KEYWORD
|
nonn,fini,full,base
|
|
AUTHOR
|
Mario Velucchi (mathchess(AT)velucchi.it)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|