|
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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 (rgwv(AT)rgwv.com), Dec 03 2002
|
|
|
EXTENSIONS
| Corrected by T. D. Noe (noe(AT)sspectra.com), Oct 25 2006
|
| |
|
|
