|
%I #3 Dec 05 2013 19:55:20
%S 1,2,4,7,11,22,44,77,111,151,202,262,323,393,464,545,636,737,848,969,
%T 1111,1331,1661,2002,2442,2992,3553,4224,4994,5775,6666,7667,8778,
%U 9999,11311,12721,14141,15651,17171,18781,20402,22122,23932,25752,27672
%N Palindromes with successive increasing difference: a(k)-a(k-1) > a(k+1)- a(k).
%t p = 1; d = 0; Do[ If[ FromDigits[ Reverse[ IntegerDigits[n]]] == n && n - p > d, Print[n]; d = n - p; p = n], {n, 2, 29691}]
%Y Cf. A078790.
%K base,easy,nonn
%O 1,2
%A _Amarnath Murthy_, May 21 2002
%E Edited, corrected and extended by _Robert G. Wilson v_, Dec 03 2002
|
