

A078790


Palindromic primes with successive increasing difference: a(k)a(k1) > a(k+1) a(k).


1



2, 5, 11, 101, 313, 727, 10301, 19891, 30103, 70207, 1003001, 1936391, 3001003, 7014107, 100030001, 193191391, 300020003, 700020007, 10000500001, 19301110391, 30000500003, 70005450007, 1000008000001, 1930022200391
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..24.


MATHEMATICA

p = 1; d = 0; Do[ q = FromDigits[ Join[ IntegerDigits[n], Drop[ Reverse[ IntegerDigits[n]], 1]]]; If[ PrimeQ[q] && q  p > d, Print[q]; d = q  p; p = q], {n, 2, 3000002}]


CROSSREFS

Cf. A071250.
Sequence in context: A178318 A134996 A134998 * A158999 A069506 A239900
Adjacent sequences: A078787 A078788 A078789 * A078791 A078792 A078793


KEYWORD

base,nonn


AUTHOR

Robert G. Wilson v, Dec 03 2002


EXTENSIONS

Corrected by T. D. Noe, Oct 25 2006


STATUS

approved



