login
A071250
Palindromes with successive increasing difference: a(k)-a(k-1) > a(k+1)- a(k).
1
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
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
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