求出2~1000之间长度最长的、成等差数列的素

求出2~1000之间长度最长的、成等差数列的素数（质数）。

例如：在2~50之间的全部素数有

2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47

其中公差为1的素数数列为2, 3，其长度为2

公差为2的素数数列为3, 5, 7，其长度为3

……

程序要求：输出满足条件的素数数列。

[算法提要]：首先用筛选法求出此范围内的全部素数，存放在数组B中，然后用2个变量i,j，逐步求出满足条件的素数数列。

程序: Max := 0; num := 1000;

For i := 2 to num do

b[i] := i;

ENDFOR

For i := 2 to ______①______ do

If _____②_____ then

k := i i;

While k <= num do

B[k] := 0;

K := k i

ENDWHILE;

ENDIF;

ENDFOR;

For i := 2 to num - 1 do

If ____