основание = N [][ 10 ] / 600 ) & # x5D ;; diffs = Таблица [][ основание ^ x ], N [][][ основание ^ x ] - ( основание ^ x / ( x * Log [ основание ])) & # x5D ;}, { x , 1 , Пол [][ 2 , основание ]} & # x5D ;; diffsli = Таблица [][ основание ^ x ], N [][][ основание ^ x ] - ( ЛогИнтеграл [ основание ^ x ] - ЛогИнтеграл [ 2 ]) & # x5D ;}, { x , Потолок [][ основание , 2 ], Пол [][ 2 , основание ]} & # x5D ;; (* Дополнить большими известными значениями PrimePi, которые слишком велики для вычисления в \ Mathematica *) LargePiPrime = {{ 10 ^ 13 , 346065536839 }, { 10 ^ 14 , 3204941750802 }, { 10 ^ 15 , 29844570422669 }, { 10 ^ 16 , 279238341033925 }, { 10 ^ 17 , 2623557157654233 }, { 10 ^ 18 , 24739954287740860 }, { 10 ^ 19 , 234057667276344607 }, { 10 ^ 20 , 2220819602560918840 }, { 10 ^ 21 , 21127269486018731928 }, { 10 ^ 22 , 201467286689315906290 }, { 10 ^ 23 , 1925320391606803968923 }, { 10 ^ 24 , 18435599767349200867866 }}; diffs2 = Abs [][][][[ 1 ]], N [][[ 2 ]] & # x5D ; - ( # [[ 1 ]] / ( Log [][[ 1 ]] & # x5D ;))} & , LargePiPrime & # x5D ; & # x5D ; & # x5D ;; diffsli2 = Abs [][][][[ 1 ]], N [][[ 2 ]] & # x5D ; - ( LogIntegral [][[ 1 ]] & # x5D ; - LogIntegral [ 2 ])} & , LargePiPrime & # x5D ; & # x5D ; & # x5D ;; (* График с логарифмической осью x вместе с горизонтальной линией y=1 *) Show [][ 1 , { x , 1 , 10 ^ 24 }, PlotRange -> { 1 , 10 ^ 21 }], ListLogLogPlot [{ diffs2 , diffsli2 }, Joined -> True , PlotRange -> { 1 , 10 ^ 21 }], LabelStyle -> FontSize -> 14 & # x5D ;