提出
经核准的
编辑
A=表[（总和[（Floor[f/10^n]-10*Floor[f/10^（n+1）]），{n，0，Floor[Log[10，f]]}]），}f，1，100}]
B=表[（积[（地板[f/10^n]-10*地板[f/10^（n+1）]），{n，0，地板[Log[10，f]]}]），}f，1，100}]
CC=表[n，{n，1100}]
Q=（A+B）-CC
位置[Q，0](*何塞·德·杰苏斯·卡马乔·麦地那2014年12月16日*）
何塞·德·杰苏斯·卡马乔·麦地那：好的，问候。
米歇尔·马库斯：何塞，你实际上并没有回答罗伯特的担忧，是吗？
何塞·德·杰苏斯·卡马乔·麦地那：根据您的标准使其更方便
米歇尔·马库斯：哦，对不起，实际上你没有写那条评论。
乔格·阿恩特：IMO应拒绝（新）第一个Mathematica程序。
何塞·德·杰苏斯·卡马乔·麦地那：确定
何塞·德·杰苏斯·卡马乔·麦地那: :)
选择[Range[100]，#==Times@@IntegerDigits[#]+Plus@@IntigerDigits[#]&](*迈克尔·德弗利格2014年12月26日*）
迈克尔·德弗利格：另一种生成序列的方法。
何塞·德·杰苏斯·卡马乔·麦地那：@编辑--
选择（proc（t）local d；d： =换算（t，基数，10）；convert（d，`+`）+convert[d，`*`）=t结束进程，[$0..100]）#罗伯特·伊斯雷尔2014年12月16日
罗伯特·伊斯雷尔：评论中的“因此……”对我来说似乎不太明显。
Q=（A+B）-立方厘米
位置[Q，0](*Joséde Jesús卡马乔-麦地那2014年12月16日*）
检验过的
