По свойствам абсолютно сходящихся рядов.
Составил простой алгоритм на языке Methematica для определения
. Вот так выглядит график частичных сумм
:
Показаны частичные сумы всех этих 10 рядов - от 1 до 400.
Код:
elementLdn[d_, n_, k_] :=
Module[{x = d, y = n, z = k, u},
If[MemberQ[IntegerDigits[z], x], u = 1/z^y, u = 1/z]; u];
sumLdn[d_, n_, x_] := Sum[elementLdn[d, n, k], {k, 1, x}];
nn = 2; kk = 400;
g0 = Table[sumLdn[0, nn, x], {x, 1, kk}];
g1 = Table[sumLdn[1, nn, x], {x, 1, kk}];
g2 = Table[sumLdn[2, nn, x], {x, 1, kk}];
g3 = Table[sumLdn[3, nn, x], {x, 1, kk}];
g4 = Table[sumLdn[4, nn, x], {x, 1, kk}];
g5 = Table[sumLdn[5, nn, x], {x, 1, kk}];
g6 = Table[sumLdn[6, nn, x], {x, 1, kk}];
g7 = Table[sumLdn[7, nn, x], {x, 1, kk}];
g8 = Table[sumLdn[8, nn, x], {x, 1, kk}];
g9 = Table[sumLdn[9, nn, x], {x, 1, kk}];
ListPlot[{g0, g1, g2, g3, g4, g5, g6, g7, g8, g9}]