The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A242946 Palindromes of length greater than 1 in decimal expansion of Blazys's constant (A233588). 0
 5665, 66, 383, 171, 88, 888, 88, 44, 444, 44, 33, 22, 575, 282, 828, 464, 969, 33, 525, 66, 99, 989, 40, 0, 22, 88, 5665, 66, 3003, 0, 383, 8338, 33, 62526, 252, 55, 808, 585, 33, 99, 545, 77, 44, 0, 11, 44, 282, 696, 99, 44, 444, 44, 646, 919, 212, 0, 99, 44, 444, 44, 353, 535, 595, 252, 22 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Begin with the left (most significant) k digits and sequentially remove the first j leading digits until a palindrome is found; continue. a(23) is actually 040 (which should be obvious), a(24) is 00, a(30) is 00, a(44) is 00, a(56) is 00, etc. If the Blazys's constant is a normal number then all palindromes should eventually appear. LINKS Eric W. Weisstein, Normal Number EXAMPLE Blazys's constant is 2.566543832171388844467529106332285751782972828702314645... MATHEMATICA bc = RealDigits[ Fold[(#2 + #2/#1) &, 1, Reverse@ Prime@ Range@ 1000], 10, 1000][[1]]; palQ[n_] := n == Reverse[n]; k = 1; lst = {}; While[j = k + 1; k < 600, While[j < 600 - k, If[ palQ[ Take[ bc, {k, j}]], p = FromDigits[ Take[ bc, {k, j}]]; AppendTo[lst, p]; Print[p]]; j++]; k++]; lst CROSSREFS Cf. A002113, A068046, A226536, A233588. Sequence in context: A203726 A262660 A255147 * A151770 A224682 A224690 Adjacent sequences:  A242943 A242944 A242945 * A242947 A242948 A242949 KEYWORD nonn,base AUTHOR Robert G. Wilson v, May 27 2014 STATUS approved

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.

Last modified September 21 10:03 EDT 2020. Contains 337268 sequences. (Running on oeis4.)