|
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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: A024927 A018077 A114347 * A084992 A153555 A058103
Adjacent sequences: A071247 A071248 A071249 * A071251 A071252 A071253
|
|
|
KEYWORD
| base,easy,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), May 21 2002
|
|
|
EXTENSIONS
| Edited, corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 03 2002
|
| |
|
|
