

A226486


First available increasing palindromes (A002113) found in the decimal expansion of Pi3 (A000796).


2



1, 4, 5, 9, 535, 979, 46264, 59195, 73637, 77477, 99999, 467764, 8683868, 23911932, 398989893, 559555955, 769646967, 972464279, 992868299, 21348884312, 49612121694, 450197791054, 9475082805749
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

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


MATHEMATICA

pi = RealDigits[Pi3, 10, 2500000][[1]]; palQ[n_] := n == Reverse[n]; mx = 0; k = 1; While[k < 1000, j = 1; While[j <= k, If[ palQ[ Take[ pi, {j, k}]], p = FromDigits[ Take[ pi, {j, k}]]; If[p > mx, mx = p; Print[p]; pi = Drop[pi, k]; k = 0; Break[]]]; j++]; k++]


CROSSREFS

Cf. A000796, A068046, A226487.
Sequence in context: A042427 A009778 A215754 * A060648 A263828 A327577
Adjacent sequences: A226483 A226484 A226485 * A226487 A226488 A226489


KEYWORD

nonn,base


AUTHOR

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


STATUS

approved



