|
| |
|
|
A078790
|
|
Palindromic primes with successive increasing difference: a(k)-a(k-1) > 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 A123165
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
|
| |
|
|
