login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A226487 First available increasing palindromes (A002113) found in the decimal expansion of the number e-2 (A001113). 1

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 15 01:25 EST 2019. Contains 329143 sequences. (Running on oeis4.)