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,1

Comments

The entry 988890 is actually 0988890.

Links

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

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

Crossrefs

Cf. A001113, A226486.

Sequence in context: A042093 A042499 A156206 * A360990 A328110 A298740

Adjacent sequences: A226484 A226485 A226486 * A226488 A226489 A226490

Keyword

nonn,base

Author

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

Status

approved