A226487 First available increasing palindromes (A002113) found in the decimal expansion of the number e-2 (A001113).

7, 8, 818, 2662, 9669, 39193, 94349, 99699, 985589, 988890, 5065605, 6609066, 7193917, 7390937, 8316138, 43488434, 563303365, 799929997, 1149559411, 68088588086, 85367376358, 208532235802, 991964469199

Offset: 1

Author

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

Keywords

• nonn
• base

Comments

The entry 988890 is actually 0988890.

Crossrefs

Cf. A001113, A226486.

Programs

Mathematica

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++]