|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|