Message Boards Message Boards

Have the number of double digits, triples ... of any real number

Description:

With this code using Mathematica, you can get the number of double digits (11,22,33...) triple (111,222,333 ...) etc ... up to twelve digits together of any real number using up to 10,000,000 of decimal places, as well as the ratio numbers within that range.

Capability:

The number can be any real constant (positive or negative of ANY size).

Around a maximum of 10,000,000 digits can be selected to evaluate.

Can calculate digits x2, x3 ... to x12 (111111111111 ... etc), above that (13+) shows message.

  • Example result for Pi calculated with 10,000,000 decimal places:

enter image description here

Code:

number = Pi
digits = 10000

x = Abs[number];
v1 = Do[x /= 10^xxx; If[x < 1, xx = x]; 
   If[x < 1, Break[]], {xxx, Infinity}];
v2 = N[xx, digits];
z = StringReplace[
   ToString[AccountingForm[N[v2, digits]*10^digits, digits]], 
   FromCharacterCode[{46}] -> FromCharacterCode[{}]];
a1 = StringPartition[ToString[z], 2];
a2 = StringCount[
   a1, {"11", "22", "33", "44", "55", "66", "77", "88", "99", "00"}];
a3 = StringPartition[StringDrop[ToString[z], 1], 2];
a4 = StringCount[
   a3, {"11", "22", "33", "44", "55", "66", "77", "88", "99", "00"}];
aa = Count[a2, 1] + Count[a4, 1];
b1 = StringPartition[ToString[z], 3];
b2 = StringCount[
   b1, {"111", "222", "333", "444", "555", "666", "777", "888", "999",
     "000"}];
b3 = StringPartition[StringDrop[ToString[z], 1], 3];
b4 = StringCount[
   b3, {"111", "222", "333", "444", "555", "666", "777", "888", "999",
     "000"}];
b5 = StringPartition[StringDrop[ToString[z], {1, 2}], 3];
b6 = StringCount[
   b5, {"111", "222", "333", "444", "555", "666", "777", "888", "999",
     "000"}];
bb = Count[b2, 1] + Count[b4, 1] + Count[b6, 1];
c1 = StringPartition[ToString[z], 4];
c2 = StringCount[
   c1, {"1111", "2222", "3333", "4444", "5555", "6666", "7777", 
    "8888", "9999", "0000"}];
c3 = StringPartition[StringDrop[ToString[z], 1], 4];
c4 = StringCount[
   c3, {"1111", "2222", "3333", "4444", "5555", "6666", "7777", 
    "8888", "9999", "0000"}];
c5 = StringPartition[StringDrop[ToString[z], {1, 2}], 4];
c6 = StringCount[
   c5, {"1111", "2222", "3333", "4444", "5555", "6666", "7777", 
    "8888", "9999", "0000"}];
c7 = StringPartition[StringDrop[ToString[z], {1, 3}], 4];
c8 = StringCount[
   c7, {"1111", "2222", "3333", "4444", "5555", "6666", "7777", 
    "8888", "9999", "0000"}];
cc = Count[c2, 1] + Count[c4, 1] + Count[c6, 1] + Count[c8, 1];
d1 = StringPartition[ToString[z], 5];
d2 = StringCount[
   d1, {"11111", "22222", "33333", "44444", "55555", "66666", "77777",
     "88888", "99999", "00000"}];
d3 = StringPartition[StringDrop[ToString[z], 1], 5];
d4 = StringCount[
   d3, {"11111", "22222", "33333", "44444", "55555", "66666", "77777",
     "88888", "99999", "00000"}];
d5 = StringPartition[StringDrop[ToString[z], {1, 2}], 5];
d6 = StringCount[
   d5, {"11111", "22222", "33333", "44444", "55555", "66666", "77777",
     "88888", "99999", "00000"}];
d7 = StringPartition[StringDrop[ToString[z], {1, 3}], 5];
d8 = StringCount[
   d7, {"11111", "22222", "33333", "44444", "55555", "66666", "77777",
     "88888", "99999", "00000"}];
d9 = StringPartition[StringDrop[ToString[z], {1, 4}], 5];
d10 = StringCount[
   d9, {"11111", "22222", "33333", "44444", "55555", "66666", "77777",
     "88888", "99999", "00000"}];
dd = Count[d2, 1] + Count[d4, 1] + Count[d6, 1] + Count[d8, 1] + 
   Count[d10, 1];
e1 = StringPartition[ToString[z], 6];
e2 = StringCount[
   e1, {"111111", "222222", "333333", "444444", "555555", "666666", 
    "777777", "888888", "999999", "000000"}];
e3 = StringPartition[StringDrop[ToString[z], 1], 6];
e4 = StringCount[
   e3, {"111111", "222222", "333333", "444444", "555555", "666666", 
    "777777", "888888", "999999", "000000"}];
e5 = StringPartition[StringDrop[ToString[z], {1, 2}], 6];
e6 = StringCount[
   e5, {"111111", "222222", "333333", "444444", "555555", "666666", 
    "777777", "888888", "999999", "000000"}];
e7 = StringPartition[StringDrop[ToString[z], {1, 3}], 6];
e8 = StringCount[
   e7, {"111111", "222222", "333333", "444444", "555555", "666666", 
    "777777", "888888", "999999", "000000"}];
e9 = StringPartition[StringDrop[ToString[z], {1, 4}], 6];
e10 = StringCount[
   e9, {"111111", "222222", "333333", "444444", "555555", "666666", 
    "777777", "888888", "999999", "000000"}];
e11 = StringPartition[StringDrop[ToString[z], {1, 5}], 6];
e12 = StringCount[
   e11, {"111111", "222222", "333333", "444444", "555555", "666666", 
    "777777", "888888", "999999", "000000"}];
ee = Count[e2, 1] + Count[e4, 1] + Count[e6, 1] + Count[e8, 1] + 
   Count[e10, 1] + Count[e12, 1];
f1 = StringPartition[ToString[z], 7];
f2 = StringCount[
   f1, {"1111111", "2222222", "3333333", "4444444", "5555555", 
    "6666666", "7777777", "8888888", "9999999", "0000000"}];
f3 = StringPartition[StringDrop[ToString[z], 1], 7];
f4 = StringCount[
   f3, {"1111111", "2222222", "3333333", "4444444", "5555555", 
    "6666666", "7777777", "8888888", "9999999", "0000000"}];
f5 = StringPartition[StringDrop[ToString[z], {1, 2}], 7];
f6 = StringCount[
   f5, {"1111111", "2222222", "3333333", "4444444", "5555555", 
    "6666666", "7777777", "8888888", "9999999", "0000000"}];
f7 = StringPartition[StringDrop[ToString[z], {1, 3}], 7];
f8 = StringCount[
   f7, {"1111111", "2222222", "3333333", "4444444", "5555555", 
    "6666666", "7777777", "8888888", "9999999", "0000000"}];
f9 = StringPartition[StringDrop[ToString[z], {1, 4}], 7];
f10 = StringCount[
   f9, {"1111111", "2222222", "3333333", "4444444", "5555555", 
    "6666666", "7777777", "8888888", "9999999", "0000000"}];
f11 = StringPartition[StringDrop[ToString[z], {1, 5}], 7];
f12 = StringCount[
   f11, {"1111111", "2222222", "3333333", "4444444", "5555555", 
    "6666666", "7777777", "8888888", "9999999", "0000000"}];
f13 = StringPartition[StringDrop[ToString[z], {1, 6}], 7];
f14 = StringCount[
   f13, {"1111111", "2222222", "3333333", "4444444", "5555555", 
    "6666666", "7777777", "8888888", "9999999", "0000000"}];
ff = Count[f2, 1] + Count[f4, 1] + Count[f6, 1] + Count[f8, 1] + 
   Count[f10, 1] + Count[f12, 1] + Count[f14, 1];
g1 = StringPartition[ToString[z], 8];
g2 = StringCount[
   g1, {"11111111", "22222222", "33333333", "44444444", "55555555", 
    "66666666", "77777777", "88888888", "99999999", "00000000"}];
g3 = StringPartition[StringDrop[ToString[z], 1], 8];
g4 = StringCount[
   g3, {"11111111", "22222222", "33333333", "44444444", "55555555", 
    "66666666", "77777777", "88888888", "99999999", "00000000"}];
g5 = StringPartition[StringDrop[ToString[z], {1, 2}], 8];
g6 = StringCount[
   g5, {"11111111", "22222222", "33333333", "44444444", "55555555", 
    "66666666", "77777777", "88888888", "99999999", "00000000"}];
g7 = StringPartition[StringDrop[ToString[z], {1, 3}], 8];
g8 = StringCount[
   g7, {"11111111", "22222222", "33333333", "44444444", "55555555", 
    "66666666", "77777777", "88888888", "99999999", "00000000"}];
g9 = StringPartition[StringDrop[ToString[z], {1, 4}], 8];
g10 = StringCount[
   g9, {"11111111", "22222222", "33333333", "44444444", "55555555", 
    "66666666", "77777777", "88888888", "99999999", "00000000"}];
g11 = StringPartition[StringDrop[ToString[z], {1, 5}], 8];
g12 = StringCount[
   g11, {"11111111", "22222222", "33333333", "44444444", "55555555", 
    "66666666", "77777777", "88888888", "99999999", "00000000"}];
g13 = StringPartition[StringDrop[ToString[z], {1, 6}], 8];
g14 = StringCount[
   g13, {"11111111", "22222222", "33333333", "44444444", "55555555", 
    "66666666", "77777777", "88888888", "99999999", "00000000"}];
g15 = StringPartition[StringDrop[ToString[z], {1, 7}], 8];
g16 = StringCount[
   g15, {"11111111", "22222222", "33333333", "44444444", "55555555", 
    "66666666", "77777777", "88888888", "99999999", "00000000"}];
gg = Count[g2, 1] + Count[g4, 1] + Count[g6, 1] + Count[g8, 1] + 
   Count[g10, 1] + Count[g12, 1] + Count[g14, 1] + Count[g16, 1];
h1 = StringPartition[ToString[z], 9];
h2 = StringCount[
   h1, {"111111111", "222222222", "333333333", "444444444", 
    "555555555", "666666666", "777777777", "888888888", "999999999", 
    "000000000"}];
h3 = StringPartition[StringDrop[ToString[z], 1], 9];
h4 = StringCount[
   h3, {"111111111", "222222222", "333333333", "444444444", 
    "555555555", "666666666", "777777777", "888888888", "999999999", 
    "000000000"}];
h5 = StringPartition[StringDrop[ToString[z], {1, 2}], 9];
h6 = StringCount[
   h5, {"111111111", "222222222", "333333333", "444444444", 
    "555555555", "666666666", "777777777", "888888888", "999999999", 
    "000000000"}];
h7 = StringPartition[StringDrop[ToString[z], {1, 3}], 9];
h8 = StringCount[
   h7, {"111111111", "222222222", "333333333", "444444444", 
    "555555555", "666666666", "777777777", "888888888", "999999999", 
    "000000000"}];
h9 = StringPartition[StringDrop[ToString[z], {1, 4}], 9];
h10 = StringCount[
   h9, {"111111111", "222222222", "333333333", "444444444", 
    "555555555", "666666666", "777777777", "888888888", "999999999", 
    "000000000"}];
h11 = StringPartition[StringDrop[ToString[z], {1, 5}], 9];
h12 = StringCount[
   h11, {"111111111", "222222222", "333333333", "444444444", 
    "555555555", "666666666", "777777777", "888888888", "999999999", 
    "000000000"}];
h13 = StringPartition[StringDrop[ToString[z], {1, 6}], 9];
h14 = StringCount[
   h13, {"111111111", "222222222", "333333333", "444444444", 
    "555555555", "666666666", "777777777", "888888888", "999999999", 
    "000000000"}];
h15 = StringPartition[StringDrop[ToString[z], {1, 7}], 9];
h16 = StringCount[
   h15, {"111111111", "222222222", "333333333", "444444444", 
    "555555555", "666666666", "777777777", "888888888", "999999999", 
    "000000000"}];
h17 = StringPartition[StringDrop[ToString[z], {1, 8}], 9];
h18 = StringCount[
   h17, {"111111111", "222222222", "333333333", "444444444", 
    "555555555", "666666666", "777777777", "888888888", "999999999", 
    "000000000"}];
hh = Count[h2, 1] + Count[h4, 1] + Count[h6, 1] + Count[h8, 1] + 
   Count[h10, 1] + Count[h12, 1] + Count[h14, 1] + Count[h16, 1] + 
   Count[h18, 1];
i1 = StringPartition[ToString[z], 10];
i2 = StringCount[
   i1, {"1111111111", "2222222222", "3333333333", "4444444444", 
    "5555555555", "6666666666", "7777777777", "8888888888", 
    "9999999999", "0000000000"}];
i3 = StringPartition[StringDrop[ToString[z], 1], 10];
i4 = StringCount[
   i3, {"1111111111", "2222222222", "3333333333", "4444444444", 
    "5555555555", "6666666666", "7777777777", "8888888888", 
    "9999999999", "0000000000"}];
i5 = StringPartition[StringDrop[ToString[z], {1, 2}], 10];
i6 = StringCount[
   i5, {"1111111111", "2222222222", "3333333333", "4444444444", 
    "5555555555", "6666666666", "7777777777", "8888888888", 
    "9999999999", "0000000000"}];
i7 = StringPartition[StringDrop[ToString[z], {1, 3}], 10];
i8 = StringCount[
   i7, {"1111111111", "2222222222", "3333333333", "4444444444", 
    "5555555555", "6666666666", "7777777777", "8888888888", 
    "9999999999", "0000000000"}];
i9 = StringPartition[StringDrop[ToString[z], {1, 4}], 10];
i10 = StringCount[
   i9, {"1111111111", "2222222222", "3333333333", "4444444444", 
    "5555555555", "6666666666", "7777777777", "8888888888", 
    "9999999999", "0000000000"}];
i11 = StringPartition[StringDrop[ToString[z], {1, 5}], 10];
i12 = StringCount[
   i11, {"1111111111", "2222222222", "3333333333", "4444444444", 
    "5555555555", "6666666666", "7777777777", "8888888888", 
    "9999999999", "0000000000"}];
i13 = StringPartition[StringDrop[ToString[z], {1, 6}], 10];
i14 = StringCount[
   i13, {"1111111111", "2222222222", "3333333333", "4444444444", 
    "5555555555", "6666666666", "7777777777", "8888888888", 
    "9999999999", "0000000000"}];
i15 = StringPartition[StringDrop[ToString[z], {1, 7}], 10];
i16 = StringCount[
   i15, {"1111111111", "2222222222", "3333333333", "4444444444", 
    "5555555555", "6666666666", "7777777777", "8888888888", 
    "9999999999", "0000000000"}];
i17 = StringPartition[StringDrop[ToString[z], {1, 8}], 10];
i18 = StringCount[
   i17, {"1111111111", "2222222222", "3333333333", "4444444444", 
    "5555555555", "6666666666", "7777777777", "8888888888", 
    "9999999999", "0000000000"}];
i19 = StringPartition[StringDrop[ToString[z], {1, 9}], 10];
i20 = StringCount[
   i19, {"1111111111", "2222222222", "3333333333", "4444444444", 
    "5555555555", "6666666666", "7777777777", "8888888888", 
    "9999999999", "0000000000"}];
ii = Count[i2, 1] + Count[i4, 1] + Count[i6, 1] + Count[i8, 1] + 
   Count[i10, 1] + Count[i12, 1] + Count[i14, 1] + Count[i16, 1] + 
   Count[i18, 1] + Count[i20, 1];
j1 = StringPartition[ToString[z], 11];
j2 = StringCount[
   j1, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
j3 = StringPartition[StringDrop[ToString[z], 1], 11];
j4 = StringCount[
   j3, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
j5 = StringPartition[StringDrop[ToString[z], {1, 2}], 11];
j6 = StringCount[
   j5, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
j7 = StringPartition[StringDrop[ToString[z], {1, 3}], 11];
j8 = StringCount[
   j7, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
j9 = StringPartition[StringDrop[ToString[z], {1, 4}], 11];
j10 = StringCount[
   j9, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
j11 = StringPartition[StringDrop[ToString[z], {1, 5}], 11];
j12 = StringCount[
   j11, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
j13 = StringPartition[StringDrop[ToString[z], {1, 6}], 11];
j14 = StringCount[
   j13, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
j15 = StringPartition[StringDrop[ToString[z], {1, 7}], 11];
j16 = StringCount[
   j15, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
j17 = StringPartition[StringDrop[ToString[z], {1, 8}], 11];
j18 = StringCount[
   j17, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
j19 = StringPartition[StringDrop[ToString[z], {1, 9}], 11];
j20 = StringCount[
   j19, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
j21 = StringPartition[StringDrop[ToString[z], {1, 10}], 11];
j22 = StringCount[
   j21, {"11111111111", "22222222222", "33333333333", "44444444444", 
    "55555555555", "66666666666", "77777777777", "88888888888", 
    "99999999999", "00000000000"}];
jj = Count[j2, 1] + Count[j4, 1] + Count[j6, 1] + Count[j8, 1] + 
   Count[j10, 1] + Count[j12, 1] + Count[j14, 1] + Count[j16, 1] + 
   Count[j18, 1] + Count[j20, 1] + Count[j22, 1];
k1 = StringPartition[ToString[z], 12];
k2 = StringCount[
   k1, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k3 = StringPartition[StringDrop[ToString[z], 1], 12];
k4 = StringCount[
   k3, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k5 = StringPartition[StringDrop[ToString[z], {1, 2}], 12];
k6 = StringCount[
   k5, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k7 = StringPartition[StringDrop[ToString[z], {1, 3}], 12];
k8 = StringCount[
   k7, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k9 = StringPartition[StringDrop[ToString[z], {1, 4}], 12];
k10 = StringCount[
   k9, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k11 = StringPartition[StringDrop[ToString[z], {1, 5}], 12];
k12 = StringCount[
   k11, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k13 = StringPartition[StringDrop[ToString[z], {1, 6}], 12];
k14 = StringCount[
   k13, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k15 = StringPartition[StringDrop[ToString[z], {1, 7}], 12];
k16 = StringCount[
   k15, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k17 = StringPartition[StringDrop[ToString[z], {1, 8}], 12];
k18 = StringCount[
   k17, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k19 = StringPartition[StringDrop[ToString[z], {1, 9}], 12];
k20 = StringCount[
   k19, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k21 = StringPartition[StringDrop[ToString[z], {1, 10}], 12];
k22 = StringCount[
   k21, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
k23 = StringPartition[StringDrop[ToString[z], {1, 11}], 12];
k24 = StringCount[
   k23, {"111111111111", "222222222222", "333333333333", 
    "444444444444", "555555555555", "666666666666", "777777777777", 
    "888888888888", "999999999999", "000000000000"}];
kk = Count[k2, 1] + Count[k4, 1] + Count[k6, 1] + Count[k8, 1] + 
   Count[k10, 1] + Count[k12, 1] + Count[k14, 1] + Count[k16, 1] + 
   Count[k18, 1] + Count[k20, 1] + Count[k22, 1] + Count[k24, 1];
l1 = StringPartition[ToString[z], 13];
l2 = StringCount[
   l1, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l3 = StringPartition[StringDrop[ToString[z], 1], 13];
l4 = StringCount[
   l3, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l5 = StringPartition[StringDrop[ToString[z], {1, 2}], 13];
l6 = StringCount[
   l5, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l7 = StringPartition[StringDrop[ToString[z], {1, 3}], 13];
l8 = StringCount[
   l7, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l9 = StringPartition[StringDrop[ToString[z], {1, 4}], 13];
l10 = StringCount[
   l9, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l11 = StringPartition[StringDrop[ToString[z], {1, 5}], 13];
l12 = StringCount[
   l11, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l13 = StringPartition[StringDrop[ToString[z], {1, 6}], 13];
l14 = StringCount[
   l13, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l15 = StringPartition[StringDrop[ToString[z], {1, 7}], 13];
l16 = StringCount[
   l15, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l17 = StringPartition[StringDrop[ToString[z], {1, 8}], 13];
l18 = StringCount[
   l17, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l19 = StringPartition[StringDrop[ToString[z], {1, 9}], 13];
l20 = StringCount[
   l19, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l21 = StringPartition[StringDrop[ToString[z], {1, 10}], 13];
l22 = StringCount[
   l21, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l23 = StringPartition[StringDrop[ToString[z], {1, 11}], 13];
l24 = StringCount[
   l23, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
l25 = StringPartition[StringDrop[ToString[z], {1, 12}], 13];
l26 = StringCount[
   l25, {"1111111111111", "2222222222222", "3333333333333", 
    "4444444444444", "5555555555555", "6666666666666", 
    "7777777777777", "8888888888888", "9999999999999", 
    "0000000000000"}];
ll = Count[l2, 1] + Count[l4, 1] + Count[l6, 1] + Count[l8, 1] + 
   Count[l10, 1] + Count[l12, 1] + Count[l14, 1] + Count[l16, 1] + 
   Count[l18, 1] + Count[l20, 1] + Count[l22, 1] + Count[l24, 1] + 
   Count[l26, 1];
aaa = (aa - 
    2*(bb - 2*(cc - 
          2*(dd - 2*(ee - 
                2*(ff - 
                   2*(gg - 
                    2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                    3*(jj - 2*(kk)) - 4*(kk)) - 
                    3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                    4*(jj - 2*(kk)) - 5*(kk)) - 
                   3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                    3*(jj - 2*(kk)) - 4*(kk)) - 
                   4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   5*(jj - 2*(kk)) - 6*(kk)) - 
                3*(gg - 
                   2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                    3*(jj - 2*(kk)) - 4*(kk)) - 
                   3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   4*(jj - 2*(kk)) - 5*(kk)) - 
                4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
                7*(kk)) - 
             3*(ff - 
                2*(gg - 
                   2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                    3*(jj - 2*(kk)) - 4*(kk)) - 
                   3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   4*(jj - 2*(kk)) - 5*(kk)) - 
                3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
                6*(kk)) - 
             4*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             5*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             6*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 7*(jj - 2*(kk)) - 
             8*(kk)) - 
          3*(ee - 2*(ff - 
                2*(gg - 
                   2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                    3*(jj - 2*(kk)) - 4*(kk)) - 
                   3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   4*(jj - 2*(kk)) - 5*(kk)) - 
                3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
                6*(kk)) - 
             3*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
             7*(kk)) - 
          4*(ff - 2*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
             6*(kk)) - 
          5*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          6*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          7*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 8*(jj - 2*(kk)) - 
          9*(kk)) - 
       3*(dd - 2*(ee - 
             2*(ff - 
                2*(gg - 
                   2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                    3*(jj - 2*(kk)) - 4*(kk)) - 
                   3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   4*(jj - 2*(kk)) - 5*(kk)) - 
                3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
                6*(kk)) - 
             3*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
             7*(kk)) - 
          3*(ff - 2*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
             6*(kk)) - 
          4*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          5*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          6*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 7*(jj - 2*(kk)) - 
          8*(kk)) - 
       4*(ee - 2*(ff - 
             2*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
             6*(kk)) - 
          3*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
          7*(kk)) - 
       5*(ff - 2*(gg - 
             2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
          6*(kk)) - 
       6*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       7*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 8*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       9*(jj - 2*(kk)) - 10*(kk)) - 
    3*(cc - 2*(dd - 
          2*(ee - 2*(ff - 
                2*(gg - 
                   2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                    3*(jj - 2*(kk)) - 4*(kk)) - 
                   3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   4*(jj - 2*(kk)) - 5*(kk)) - 
                3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
                6*(kk)) - 
             3*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
             7*(kk)) - 
          3*(ff - 2*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
             6*(kk)) - 
          4*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          5*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          6*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 7*(jj - 2*(kk)) - 
          8*(kk)) - 
       3*(ee - 2*(ff - 
             2*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
             6*(kk)) - 
          3*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
          7*(kk)) - 
       4*(ff - 2*(gg - 
             2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
          6*(kk)) - 
       5*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       6*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 7*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       8*(jj - 2*(kk)) - 9*(kk)) - 
    4*(dd - 2*(ee - 
          2*(ff - 2*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
             6*(kk)) - 
          3*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
          7*(kk)) - 
       3*(ff - 2*(gg - 
             2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
          6*(kk)) - 
       4*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       5*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 6*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       7*(jj - 2*(kk)) - 8*(kk)) - 
    5*(ee - 2*(ff - 
          2*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
          6*(kk)) - 
       3*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       6*(jj - 2*(kk)) - 7*(kk)) - 
    6*(ff - 2*(gg - 
          2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       5*(jj - 2*(kk)) - 6*(kk)) - 
    7*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
          3*(jj - 2*(kk)) - 4*(kk)) - 
       3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
       5*(kk)) - 
    8*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
       4*(kk)) - 9*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
    10*(jj - 2*(kk)) - 11*(kk));
bbb = (bb - 
    2*(cc - 2*(dd - 
          2*(ee - 2*(ff - 
                2*(gg - 
                   2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                    3*(jj - 2*(kk)) - 4*(kk)) - 
                   3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   4*(jj - 2*(kk)) - 5*(kk)) - 

                3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
                6*(kk)) - 
             3*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
             7*(kk)) - 
          3*(ff - 2*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
             6*(kk)) - 
          4*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          5*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          6*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 7*(jj - 2*(kk)) - 
          8*(kk)) - 
       3*(ee - 2*(ff - 
             2*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
             6*(kk)) - 
          3*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
          7*(kk)) - 
       4*(ff - 2*(gg - 
             2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
          6*(kk)) - 
       5*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       6*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 7*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       8*(jj - 2*(kk)) - 9*(kk)) - 
    3*(dd - 2*(ee - 
          2*(ff - 2*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
             6*(kk)) - 
          3*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
          7*(kk)) - 
       3*(ff - 2*(gg - 
             2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
          6*(kk)) - 
       4*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       5*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 6*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       7*(jj - 2*(kk)) - 8*(kk)) - 
    4*(ee - 2*(ff - 
          2*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
          6*(kk)) - 
       3*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       6*(jj - 2*(kk)) - 7*(kk)) - 
    5*(ff - 2*(gg - 
          2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       5*(jj - 2*(kk)) - 6*(kk)) - 
    6*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
          3*(jj - 2*(kk)) - 4*(kk)) - 
       3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
       5*(kk)) - 
    7*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
       4*(kk)) - 8*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
    9*(jj - 2*(kk)) - 10*(kk));
ccc = (cc - 
    2*(dd - 2*(ee - 
          2*(ff - 2*(gg - 
                2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                   3*(jj - 2*(kk)) - 4*(kk)) - 
                3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
                5*(kk)) - 
             3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
             6*(kk)) - 
          3*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 6*(jj - 2*(kk)) - 
          7*(kk)) - 
       3*(ff - 2*(gg - 
             2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
          6*(kk)) - 
       4*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       5*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 6*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       7*(jj - 2*(kk)) - 8*(kk)) - 
    3*(ee - 2*(ff - 
          2*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
          6*(kk)) - 
       3*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       6*(jj - 2*(kk)) - 7*(kk)) - 
    4*(ff - 2*(gg - 
          2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       5*(jj - 2*(kk)) - 6*(kk)) - 
    5*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
          3*(jj - 2*(kk)) - 4*(kk)) - 
       3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
       5*(kk)) - 
    6*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
       4*(kk)) - 7*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
    8*(jj - 2*(kk)) - 9*(kk));
ddd = (dd - 
    2*(ee - 2*(ff - 
          2*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
                3*(jj - 2*(kk)) - 4*(kk)) - 
             3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
             5*(kk)) - 
          3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 5*(jj - 2*(kk)) - 
          6*(kk)) - 
       3*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       6*(jj - 2*(kk)) - 7*(kk)) - 
    3*(ff - 2*(gg - 
          2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       5*(jj - 2*(kk)) - 6*(kk)) - 
    4*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
          3*(jj - 2*(kk)) - 4*(kk)) - 
       3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
       5*(kk)) - 
    5*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
       4*(kk)) - 6*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
    7*(jj - 2*(kk)) - 8*(kk));
eee = (ee - 
    2*(ff - 2*(gg - 
          2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
             3*(jj - 2*(kk)) - 4*(kk)) - 
          3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
          5*(kk)) - 
       3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       5*(jj - 2*(kk)) - 6*(kk)) - 
    3*(gg - 
       2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
          4*(kk)) - 3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
       4*(jj - 2*(kk)) - 5*(kk)) - 
    4*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
       4*(kk)) - 5*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
    6*(jj - 2*(kk)) - 7*(kk));
fff = (ff - 
    2*(gg - 2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
          3*(jj - 2*(kk)) - 4*(kk)) - 
       3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 4*(jj - 2*(kk)) - 
       5*(kk)) - 
    3*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
       4*(kk)) - 4*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
    5*(jj - 2*(kk)) - 6*(kk));
ggg = (gg - 
    2*(hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
       4*(kk)) - 3*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 
    4*(jj - 2*(kk)) - 5*(kk));
hhh = (hh - 2*(ii - 2*(jj - 2*(kk)) - 3*(kk)) - 3*(jj - 2*(kk)) - 
    4*(kk));
iii = (ii - 2*(jj - 2*(kk)) - 3*(kk));
jjj = (jj - 2*(kk));
kkk = (kk);
w1 = N[(2*aaa + 3*bbb + 4*ccc + 5*ddd + 6*eee + 7*fff + 8*ggg + 
      9*hhh + 10*iii + 11*jjj + 12*kkk)/y, 6];
w2 = If[ll >= 1, 
  "ERROR=13+UnitedDigits", {aaa, bbb, ccc, ddd, eee, fff, ggg, hhh, 
   iii, jjj, kkk, w1}]

Code Explained:

Lines x, v1, v2, z are for adapting any number in the correct format.

Lines a1 to kk are the effective detectors that will serve to account for the ratio.

Lines l1 through ll serve to detect 13+ digits together to later issue warning message.

Lines aaa to kkk, serve to give the correct value of the number of doubles, triples..etc .. excluding the false results given by the detector lines, correcting the values.

Line w1, calculates the ratio of these numbers together within the range of digits and gives the result in a fraction with 6 decimal places.

Line w2 gives the result {2x, 3x, 4x, 5x, 6x, 7x, 8x, 9x, 10x, 11x, 12x, reason}.

Thanks to everyone in the community.

POSTED BY: Claudio Chaib
3 Replies
Sort By:

Very interesting Daniel, I still do not quite understand this type of loop yet but I will make some attempts to improve the code using your information. It Is true that with these long codes the limit of calculations (especially above 10 million digits) is the capacity of memory available. Thanks for the help.
POSTED BY: Claudio Chaib

Use of simple loops e.g. with Table would make this code more or less comprehensible. Something along the lines below. It counts repeats for each length requested, 2 through n, and also totals the count for each such length.

repeatCounts[val_, len_, n_] := Module[
  {digits, splits},
  digits = RealDigits[N[val, len]][[1]];
  Table[
   splits = Partition[digits, j, 1];
   repeats = Table[Count[splits, {k ..}], {k, 0, 9}];
   {Total[repeats], repeats}
   , {j, 2, n}]
  ]

Example:

Timing[repeatCounts[Pi, 10000000, 11]]

(* Out[468]= {266.4, {{1000191, {99662, 99675, 99931, 100555, 99915, 100490, 99905, 100208, 99781, 100069}}, {99489, {9877, 9828, 9983, 10035, 9781, 10163, 9831, 9978, 9848, 10165}}, {9799, {902, 1005, 980, 964, 923, 1031, 978, 1036, 946, 1034}}, {994, {89, 103, 89, 93, 92, 105, 103, 115, 100, 105}}, {117, {6, 10, 9, 9, 9, 12, 11, 15, 19, 17}}, {15, {1, 1, 0, 2, 0, 2, 1, 2, 2, 4}}, {0, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}, {0, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}, {0, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}, {0, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}}} *)

I'm sure the above could be made more memory efficient though possibly at the expense of speed.
POSTED BY: Daniel Lichtblau

At the end of the code where you have y you can place digits to have the ratio of the absolute value when you do the evaluation.

POSTED BY: Claudio Chaib
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract