OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..4796
MATHEMATICA
Select[Table[FromDigits[Join[id=IntegerDigits[n], {8}, Reverse[id]]], {n, 1, 99999}], PrimeQ] (* From Zak Seidov, Feb 23 2011 *)
PROG
(Magma) [ p: p in PrimesUpTo(300000000) | IsOdd(d) and D[(d+1) div 2] eq 8 and D eq Reverse(D) where d is #D where D is Intseq(p) ]; // Klaus Brockhaus, Feb 23 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Apr 25 2003
EXTENSIONS
Corrected by Harvey P. Dale, Feb 22 2011
STATUS
approved