login
A082444
Palindromic primes with middle digit 8.
1
181, 383, 787, 12821, 13831, 19891, 30803, 34843, 78887, 94849, 97879, 1008001, 1028201, 1178711, 1208021, 1218121, 1268621, 1278721, 1328231, 1338331, 1508051, 1548451, 1598951, 1628261, 1658561, 1688861, 1748471, 1878781, 1908091
OFFSET
1,1
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
Cf. A002385.
Sequence in context: A323192 A142030 A267542 * A108847 A063360 A217499
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Apr 25 2003
EXTENSIONS
Corrected by Harvey P. Dale, Feb 22 2011
STATUS
approved