This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A226487 #10 Oct 25 2019 19:53:13
%S A226487 7,8,818,2662,9669,39193,94349,99699,985589,988890,5065605,6609066,
%T A226487 7193917,7390937,8316138,43488434,563303365,799929997,1149559411,
%U A226487 68088588086,85367376358,208532235802,991964469199
%N A226487 First available increasing palindromes (A002113) found in the decimal expansion of the number e-2 (A001113).
%C A226487 The entry 988890 is actually 0988890.
%t A226487 e = RealDigits[E-2, 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++]
%Y A226487 Cf. A001113, A226486.
%K A226487 nonn,base
%O A226487 1,1
%A A226487 _Patrick De Geest_ and _Robert G. Wilson v_, Jun 09 2013