f[n_]：=（k=1；x=y=“0”；While[k<n+1，x=StringJoin[x，ToString[3]]；y=StringJoin[y，ToString[k]]；k++]；Return[Floor[ToExpression[x]/ToExpression[y]]]）；表[f[n]，{n，1，15}]
表[Floor[FromDigits[Flatten[IntegerDigits/@（3^Range[n]）]/FromDigits[Platten[integerDiges/@Range[n]]]，{n，15}](*哈维·P·戴尔2019年3月10日*）
