This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A012884 #17 Nov 20 2019 07:52:08
%S A012884 1,2,3,5,7,11,13,17,23,31,37,53,71,73,113,131,137,173,197,311,313,317,
%T A012884 373,797,1373,1997,3137,3797,7331,73331,739397
%N A012884 Numbers such that every prefix and suffix is 1 or a prime.
%C A012884 Last term is 739397 (confirmed by _David W. Wilson_).
%C A012884 Intersection of A012883 and A143390. [_Reinhard Zumkeller_, Aug 13 2008]
%t A012884 prQ[n_] := n == 1 || PrimeQ[n];
%t A012884 okQ[n_] := Module[{dd, nd}, dd = IntegerDigits[n]; nd = Length[dd]; AllTrue[Range[nd], prQ@ FromDigits@ Take[dd, #]&] && AllTrue[Range[nd-1], prQ@ FromDigits@ Drop[dd, #]&]];
%t A012884 {1}~Join~Select[Prime@Range[60000], okQ] (* _Jean-François Alcover_, Nov 20 2019 *)
%Y A012884 Cf. A068669.
%K A012884 nonn,fini,full,nice,base
%O A012884 1,2
%A A012884 Larry Calmer (larry(AT)wri.com), _Simon Plouffe_