|
%I #10 Oct 25 2019 19:53:13
%S 7,8,818,2662,9669,39193,94349,99699,985589,988890,5065605,6609066,
%T 7193917,7390937,8316138,43488434,563303365,799929997,1149559411,
%U 68088588086,85367376358,208532235802,991964469199
%N First available increasing palindromes (A002113) found in the decimal expansion of the number e-2 (A001113).
%C The entry 988890 is actually 0988890.
%t 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 Cf. A001113, A226486.
%K nonn,base
%O 1,1
%A _Patrick De Geest_ and _Robert G. Wilson v_, Jun 09 2013
|
