Антипростые числа
Информация - Математика и статистика
Другие материалы по предмету Математика и статистика
Основы теории чисел. М.: Наука, 1972. 168 с.
Приложение A - +Таблица антипростых чисел
Приложение Б Программа нахождения антипростых чисел
program Project2;
var
k:real;
b,t,i,j,m,n:longint;
a:array[1..2000000] of longint;
begin
assign(output,output.txt);
rewrite(output);
m:=3;
a[1]:=2;
a[2]:=3;
for i:=4 to 2000000 do begin
t:=1;
k:=sqrt(i);
b:=trunc(k);
for j:=2 to b do
if(i mod j)=0 then
t:=t+1;
if t=1 then begin
a[m]:=i;
m:=m+1;
end;
end;
n:=1;
for i:=1 to 2000000 do begin
t:=1;
for j:=1 to m-1 do
if(i mod a[j])=0 then begin
b:=i div a[j];
if (b mod a[j])=0 then
t:=t+1
else
begin
t:=1;
break;
end;
end;
if t>1 then
begin
writeln(i);
end;
end;
readln;
close(output);
end.
Приложение В Таблица сравнения значений функций (n) и
Таблица 1 Сравнение значений функций (n) и
Приложение Г Таблица сравнения значений функций (m), f(m)= и y(x)=
Таблица 2 Сравнение значений функций (m), f(m)= и y(x)=
Отрезок
[1; m]Количество антипростых чисел (n)Значение функции
(m)Значение функции
f(m)=Значение функции
y(x)=[1; 20000]2660,01330,0141420,01346,3318470,75188[1; 40000]3820,009550,010,0095822284,7120420,337463[1; 60000]4730,0078830,0081650,0078754173,5725050,100424[1; 80000]5510,0068880,0070710,0068521712,6652310,512948[1; 100000]6180,006180,0063250,0061509632,3390830,469855[1; 120000]6770,0056420,0057740,0056316442,3368280,177647[1; 140000]7340,0052430,0053450,0052269261,9525170,30386[1; 160000]7850,0049060,0050,004899931,9108280,128818[1; 180000]8370,004650,0047140,0046285211,3773160,461906[1; 200000]8850,0044250,0044720,0043985021,0652190,598824[1; 220000]9270,0042140,0042640,0042002871,1955940,316802[1; 240000]9710,0040460,0040820,0040271420,905860,461997[1; 260000]10100,0038850,0039220,0038741730,9706830,268815[1; 280000]10530,0037610,003780,0037377310,5033740,611139[1; 300000]10890,003630,0036510,003615030,5918380,41241[1; 320000]11260,0035190,0035360,0035038990,4769850,42206[1; 340000]11650,0034260,003430,0034026210,1021780,696032[1; 360000]11980,0033280,0033330,0033098170,1669450,539728[1; 380000]12280,0032320,0032440,0032243620,3976220,223323[1; 400000]12660,0031650,0031620,0031453320,0860140,621423[1; 420000]12960,0030860,0030860,0030719570,0114310,445845[1; 440000]13290,003020,0030150,003003590,1768310,558332[1; 460000]13590,0029540,0029490,0029396860,1864610,496296[1; 480000]13870,002890,0028870,0028797750,0980070,339428[1; 500000]14220,0028440,0028280,0028234590,5475690,722272[1; 520000]14440,0027770,0027740,0027703890,1232330,235313[1; 540000]14740,002730,0027220,0027202640,2921410,34312[1; 560000]15000,0026790,0026730,002672820,222470,214713[1; 580000]15290,0026360,0026260,0026278260,3823010,317905[1; 600000]15560,0025930,0025820,0025850770,4374460,318356[1; 620000]15820,0025520,002540,0025443920,4550210,282996[1; 640000]16100,0025160,00250,0025056090,6211180,398166[1; 660000]16340,0024760,0024620,0024685830,5625650,289788[1; 680000]16600,0024410,0024250,0024331860,6480570,327323[1; 700000]16840,0024060,002390,0023993010,6342010,266598[1; 720000]17110,0023760,0023570,0023668220,8149460,402569[1; 740000]17330,0023420,0023250,0023356560,7233090,266293[1; 760000]17580,0023130,0022940,0023057140,8214120,321793[1; 780000]17800,0022820,0022650,002276920,7667320,224861[1; 800000]18050,0022560,0022360,0022492010,8944940,312442[1; 820000]18250,0022260,0022090,0022224910,7629030,14014[1; 840000]18500,0022020,0021820,0021967310,9172820,256558[1; 860000]18710,0021760,0021570,0021718650,8699250,170839[1; 880000]18960,0021550,0021320,0021478421,0460810,311116[1; 900000]19190,0021320,0021080,0021246171,1273270,356696[1; 920000]19410,002110,0020850,0021021441,167820,362034[1; 940000]19590,0020840,0020630,0020803861,0172570,17547[1; 960000]19790,0020610,0020410,0020593030,9807080,104546[1; 980000]20040,0020450,002020,0020388621,2026450,295148[1; 1000000]20260,0020260,0020,0020190321,2833170,34395[1; 1020000]20430,0020030,001980,0019997811,1306420,157798[1; 1040000]20630,0019840,0019610,0019810821,1338920,129668[1; 1060000]20820,0019640,0019430,0019629091,0986540,063238[1; 1080000]21030,0019470,0019250,0019452381,1668580,101911[1; 1100000]21230,001930,0019070,0019280461,1955870,101258[1; 1120000]21450,0019150,001890,0019113111,323960,201927[1; 1140000]21620,0018960,0018730,0018950151,2296180,077865[1; 1160000]21840,0018830,0018570,0018791371,3706080,192382[1; 1180000]22020,0018660,0018410,001863661,3371440,130865[1; 1200000]22210,0018510,0018260,0018485671,3556850,122443[1; 1220000]22410,0018370,0018110,0018338431,4247120,165603[1; 1240000]22590,0018220,0017960,0018194731,4118750,126297[1; 1260000]22760,0018060,0017820,0018054431,3622830,050154[1; 1280000]22960,0017940,0017680,001791741,4485320,11207[1; 1300000]23150,0017810,0017540,001778351,4967240,135835[1; 1320000]23320,0017670,0017410,0017652631,4654780,079447[1; 1340000]23510,0017540,0017280,0017524671,5241440,114608[1; 1360000]23690,0017420,0017150,0017399511,5457680,112571[1; 1380000]23900,0017320,0017030,0017277051,6958990,241297[1; 1400000]24040,0017170,001690,001715721,5627320,082873[1; 1420000]24220,0017060,0016780,0017039861,5988830,096612[1; 1440000]24370,0016920,0016670,0016924951,518260,007898[1; 1460000]24590,0016840,0016550,0016812381,7239040,17863[1; 1480000]24730,0016710,0016440,0016702081,6132220,044179[1; 1500000]24930,0016620,0016330,0016593961,7452970,156651Средняя ошибка1,185812Средняя ошибка0,280031