

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

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



