请输入十进制验证码

情节如下图【转帖的】

要输入的验证码其实是：

78664

如果是同样多位数中的偶数，则为：
62808

虽然偶数总数15647个，比奇数15768少不了多少，不过，由于每个奇数都比同级的偶数大1，结果如此不奇怪

先找出这个整数列：

list = ToExpression /@ Characters@ToString[Floor[Pi*10^31414]];

再对所有奇数求和得验证码：

Total@Pick[#, OddQ@#] &@list