OFFSET
1,1
COMMENTS
Is this sequence well-defined? For example, how do we know that 141... is not the start of the some very long palindrome in Pi? - Sean A. Irvine, Jan 19 2024
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
pi = RealDigits[ Pi, 10, 600][[1]]; palQ[n_] := n == Reverse[n]; k = 1; lst = {}; While[j = k + 1; k < 600, While[j < 600 - k, If[ palQ[ Take[pi, {k, j}]], p = FromDigits[ Take[ pi, {k, j}]]; AppendTo[ lst, p]; Print[p]]; j++]; k++]; lst Robert G. Wilson v, Jun 11 2013
CROSSREFS
KEYWORD
AUTHOR
Reinhard Zumkeller, Feb 11 2002
STATUS
approved