|
|
|
|
5, 11, 101, 191, 16061, 1748471, 179868971, 11027472011, 13160106131, 15130003151, 15843234851, 16420302461, 16782228761, 16861316861, 17060706071, 17374347371, 18491419481, 18697979681, 19497279491
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Conjecture: Sequence is finite.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Prime[Range[8611*10^5]], AllTrue[#+{2, 6, 8}, PrimeQ] && PalindromeQ[ #]&] (* Requires Mathematica version 10 or later *) (* The program will take a long time to run *) (* Harvey P. Dale, Mar 11 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|