

A226487


First available increasing palindromes (A002113) found in the decimal expansion of the number e2 (A001113).


1



7, 8, 818, 2662, 9669, 39193, 94349, 99699, 985589, 988890, 5065605, 6609066, 7193917, 7390937, 8316138, 43488434, 563303365, 799929997, 1149559411, 68088588086, 85367376358, 208532235802, 991964469199
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

The entry 988890 is actually 0988890.


LINKS

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


MATHEMATICA

e = RealDigits[E2, 10, 2500000][[1]]; palQ[n_] := n == Reverse[n]; mx = 0; k = 1; While[k < 1000000, j = 1; While[j <= k, If[ palQ[ Take[ e, {j, k}]], p = FromDigits[ Take[e, {j, k}]]; If[p > mx, mx = p; Print[p]; e = Drop[e, k]; k = 0; Break[]]]; j++]; k++]


CROSSREFS

Cf. A001113, A226486.
Sequence in context: A042093 A042499 A156206 * A298740 A202283 A104757
Adjacent sequences: A226484 A226485 A226486 * A226488 A226489 A226490


KEYWORD

nonn,base


AUTHOR

Patrick De Geest & Robert G. Wilson v, Jun 09 2013


STATUS

approved



