OFFSET
1,1
COMMENTS
The corresponding primes are 137, 257, 263, 409, 419, 421, 431, 599, 1789, 1873, 6977, 6983, 6991, 7103, 7121, 7151, 7177, 7187, ...
EXAMPLE
287 is in the sequence because prime(287) = 1873 and the suffix 87 is in the middle of the decimal expansion of 1873.
MATHEMATICA
lst={}; Do[a=IntegerDigits[Prime[n]]; b=Length[a]; l=IntegerLength[n]-1; c=IntegerLength[Mod[n, 10^l]]; If[Mod[n, 10^l]==0, c=1]; If[EvenQ[b-c]&&FromDigits[Take[a, {(b-c)/2+1, (b+c)/2}]]==Mod[n, 10^l], AppendTo[lst, n]], {n, 26, 10^5}]; lst
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, May 27 2014
STATUS
approved