A242946 Palindromes of length greater than 1 in decimal expansion of Blazys's constant (A233588).

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

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

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

Eric W. Weisstein, Normal Number

Index entries for sequences related to palindromes

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