|
Search: id:A078790
|
|
|
| A078790 |
|
Palindromic primes with successive increasing difference: a(k)-a(k-1) > a(k+1)- a(k). |
|
+0
2
|
|
| 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; listen)
|
|
|
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: A018847 A134996 A134998 this_sequence A158999 A069506 A123165
Adjacent sequences: A078787 A078788 A078789 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
