A071250 Palindromes with successive increasing difference: a(k)-a(k-1) > a(k+1)- a(k).

1, 2, 4, 7, 11, 22, 44, 77, 111, 151, 202, 262, 323, 393, 464, 545, 636, 737, 848, 969, 1111, 1331, 1661, 2002, 2442, 2992, 3553, 4224, 4994, 5775, 6666, 7667, 8778, 9999, 11311, 12721, 14141, 15651, 17171, 18781, 20402, 22122, 23932, 25752, 27672

Offset

1,2

Links

Table of n, a(n) for n=1..45.

Mathematica

p = 1; d = 0; Do[ If[ FromDigits[ Reverse[ IntegerDigits[n]]] == n && n - p > d, Print[n]; d = n - p; p = n], {n, 2, 29691}]

Crossrefs

Cf. A078790.

Sequence in context: A114347 A293684 A332274 * A084992 A360886 A304040

Adjacent sequences: A071247 A071248 A071249 * A071251 A071252 A071253

Keyword

base,easy,nonn

Author

Amarnath Murthy, May 21 2002

Extensions

Edited, corrected and extended by Robert G. Wilson v, Dec 03 2002

Status

approved