Infinite Prime Chain??

Expand Messages
• 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, 2008
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]));{}