CLS
INPUT N
DIM A(N+1)
FOR I=1 TO N
  A(I)=1
NEXT I
S=0
DO WHILE A(0)=0
  F=1
  FOR I=2 TO N
    IF A(I)=1 THEN 
      IF A(I-1)<>1 AND A(I+1)<>1 THEN F=0:EXIT FOR
    END IF
  NEXT I
  IF A(1)=1 THEN IF A(2)<>1 THEN F=0
  S=S+F
  K=N
  DO WHILE A(K)=2
    A(K)=1
    K=K-1
  LOOP
  A(K)=A(K)+1
LOOP
PRINT S
我用全排列做的

还是有漏洞的，仔细看看吧

你从15开始就已经速度很慢了~
在改进

哈哈，当然慢我用的可是进制穷举！想要快的吗的用剪枝！

找规律，用高精度，就OK了