%I #9 Nov 04 2016 05:05:59
%S 131,139,163,167,193,211,227,251,269,277,281,331,337,353,359,463,541,
%T 563,571,593,653,673,761,769,797,821,881,937,983,1031,1093,1097,1153,
%U 1279,1301,1427,1429,1459,1483,1549,1609,1693,1783,1787,1789,1879,1931
%N Primes which stay prime when the end digits (on both sides) are repeated once.
%H G. C. Greubel, <a href="/A116519/b116519.txt">Table of n, a(n) for n = 1..1000</a>
%e The derived numbers 11311,11399,11633,11933,22111,22277,...are also primes.
%t FromDigits /@ Select[IntegerDigits@Prime@Range[400], PrimeQ@FromDigits@Flatten@{First@#, #, Last@#} &] - _Giovanni Resta_, Apr 04 2006
%K nonn,base
%O 1,1
%A _Lekraj Beedassy_, Mar 25 2006
%E More terms from _Giovanni Resta_, Apr 04 2006
|