
theorem
  8017 is prime
proof
  now
    8017 = 2*4008 + 1; hence not 2 divides 8017 by NAT_4:9;
    8017 = 3*2672 + 1; hence not 3 divides 8017 by NAT_4:9;
    8017 = 5*1603 + 2; hence not 5 divides 8017 by NAT_4:9;
    8017 = 7*1145 + 2; hence not 7 divides 8017 by NAT_4:9;
    8017 = 11*728 + 9; hence not 11 divides 8017 by NAT_4:9;
    8017 = 13*616 + 9; hence not 13 divides 8017 by NAT_4:9;
    8017 = 17*471 + 10; hence not 17 divides 8017 by NAT_4:9;
    8017 = 19*421 + 18; hence not 19 divides 8017 by NAT_4:9;
    8017 = 23*348 + 13; hence not 23 divides 8017 by NAT_4:9;
    8017 = 29*276 + 13; hence not 29 divides 8017 by NAT_4:9;
    8017 = 31*258 + 19; hence not 31 divides 8017 by NAT_4:9;
    8017 = 37*216 + 25; hence not 37 divides 8017 by NAT_4:9;
    8017 = 41*195 + 22; hence not 41 divides 8017 by NAT_4:9;
    8017 = 43*186 + 19; hence not 43 divides 8017 by NAT_4:9;
    8017 = 47*170 + 27; hence not 47 divides 8017 by NAT_4:9;
    8017 = 53*151 + 14; hence not 53 divides 8017 by NAT_4:9;
    8017 = 59*135 + 52; hence not 59 divides 8017 by NAT_4:9;
    8017 = 61*131 + 26; hence not 61 divides 8017 by NAT_4:9;
    8017 = 67*119 + 44; hence not 67 divides 8017 by NAT_4:9;
    8017 = 71*112 + 65; hence not 71 divides 8017 by NAT_4:9;
    8017 = 73*109 + 60; hence not 73 divides 8017 by NAT_4:9;
    8017 = 79*101 + 38; hence not 79 divides 8017 by NAT_4:9;
    8017 = 83*96 + 49; hence not 83 divides 8017 by NAT_4:9;
    8017 = 89*90 + 7; hence not 89 divides 8017 by NAT_4:9;
  end;
  then for n being Element of NAT st 1 < n & n*n <= 8017 & n is prime
  holds not n divides 8017 by XPRIMET1:48;
  hence thesis by NAT_4:14;
end;
