Loading ...
Sorry, an error occurred while loading the content.

Infinite Prime Chain??

Expand Messages
  • aldrich617
    1373, 1523, -1601, -1447...... procedure Ndegrees4; var a : array[0..16] of extended; ct: longint; n,nh ,i,j : integer; ab1,ab2 : extended; begin for i := 0
    Message 1 of 1 , Jun 6 8:38 PM
    • 0 Attachment
      1373, 1523, -1601, -1447......

      procedure Ndegrees4;
      var a : array[0..16] of extended;
      ct: longint;
      n,nh ,i,j : integer;
      ab1,ab2 : extended;
      begin
      for i := 0 to 16 do
      a[i] := 0;
      N := 5;
      a[0] := 1373{ FIRST TERM OF PRIME CHAIN};
      writeln('1');
      writeln(trunc(a[0]));
      writeln;
      nh := 1;
      a[1] := 1523 ;a[2] := 1601 ;a[3] := 1477 ;
      a[4] := 1373 ;a[5] := 1523 ;
      repeat
      for i := N downto nh do
      begin
      a[i] := a[i] - a[i-1] ;
      IF NH = 1 THEN A[I] := ABS(A[I]); {******}
      IF NH = 3 THEN A[I] := ABS(A[I]); {******}
      End;
      nh := nh + 1;
      until nh = n + 2;
      ct := 0;
      repeat
      ct := ct + 1;
      ab1 := a[n] + a[n-1];
      for i := N-1 downto 1 do
      begin
      ab2 := a[i] + a[i-1] ;
      IF I = 1 THEN IF ODD(CT + 1) THEN AB2 := -AB2;{******}
      a[i] := ab1;
      ab1 := ab2;
      end;
      IF ODD(ct + 1) THEN A[5] := -A[5];{******}
      A[3] := -A[3];{******}
      a[0] := ab1;
      writeln(ct + 1);
      writeln(trunc(a[0]));{}
      readln;
      until 1<0;
      END;

      Aldrich
    Your message has been successfully submitted and would be delivered to recipients shortly.