100 HOME
110 FOR I = 0 TO 3
120  FOR J = 1 TO 5
130   LET N = (I * 5) + J
140   GOSUB 200
150   PRINT "p("; N; ") = "; P; "  "
160  NEXT J
170 NEXT I
180 END
200 REM pancake(n)
210  LET G = 2 : LET S = 2 : LET A = -1
220  IF S < N THEN LET A = A + 1 : LET G = (G * 2) - 1 : LET S = S + G
230  IF S >= N THEN LET P = N + A : RETURN
240 GOTO 220