CLS
INPUT N,K
DIM A(N)
FOR I=1 TO N
  A(I)=I
NEXT I
DO WHILE A(0)=0
  H=H+1
  X=0
  FOR I=1 TO N  ‘取数做统计素数
    S$=""
    FOR J=1 TO K
      T=I+J-1
      IF T>N THEN T=T-N
      S$=S$+LTRIM$(STR$(A(T)))
    NEXT J
    S=VAL(S$)
    F=0
    FOR J=2 TO INT(SQR(S))
      IF S MOD J=0 THEN F=1:EXIT FOR
    NEXT J
    IF F=0 THEN X=X+1   
  NEXT I
  IF H=1 THEN PRINT X,    ‘先打印第一次的
  IF MAX<X THEN MAX=X     ‘打擂台比谁大
  L=N                     ‘以下是生成法全排列
  DO WHILE A(L)<=A(L-1)
    L=L-1
  LOOP
  J=N
  DO WHILE A(J)<=A(L-1)
    L=L-1
  LOOP
  SWAP A(J),A(L-1)
  FOR Q=L TO N-1
    FOR P=Q+1 TO N
      IF A(Q)>A(P) THEN SWAP A(P),A(Q)
  NEXT P,Q
LOOP
PRINT MAX