A329368 Partition the decimal expansion of Pi into non-overlapping strings of length 10: 3141592653, 5897932384,..; a(n) is the position of the strings where digits are different from each other.
7, 548, 3113, 11665, 11728, 14305, 15762, 19177, 23288, 28259, 35603, 37613, 40595, 40740, 41477, 52108, 54085, 54367, 62272, 74856, 75082, 75178, 82919, 83591, 92284, 94936, 103849, 105419, 105832, 108875, 111962, 115152, 117919, 118976, 121112, 124121, 128505
Offset: 1
Examples
a(1) = 7, because such a string first occur at the 7th string: 4592307816 (i.e., 61-70 digits of Pi).
References
- David Blatner, The Joy of Pi, Walker and Co., NY, 1997; page 91.
Links
- Eric Weisstein's World of Mathematics, Pi Digits
Programs
-
Mathematica
q[i_]:=q[i]=Take[RealDigits[Pi,10,10i][[1]],-10]; a={}; Do[If[Length@Union@q[i]==10, AppendTo[a,i]], {i,130000}] a