%I A078790
%S A078790 2,5,11,101,313,727,10301,19891,30103,70207,1003001,1936391,3001003,
%T A078790 7014107,100030001,193191391,300020003,700020007,10000500001,
%U A078790 19301110391,30000500003,70005450007,1000008000001,1930022200391
%N A078790 Palindromic primes with successive increasing difference: a(k)-a(k-1) 
               > a(k+1)- a(k).
%t A078790 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}]
%Y A078790 Cf. A071250.
%Y A078790 Sequence in context: A018847 A134996 A134998 this_sequence A158999 A069506 
               A123165
%Y A078790 Adjacent sequences: A078787 A078788 A078789 this_sequence A078791 A078792 
               A078793
%K A078790 base,nonn
%O A078790 1,1
%A A078790 Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 03 2002
%E A078790 Corrected by T. D. Noe (noe(AT)sspectra.com), Oct 25 2006