登录
A282693型
对k进行编号,使k=(k的位数之和)*((k的数字之和)+1)。
0
抵消
1, 2
例子
0 = 0*(0+1).
12 = (1+2)*(1+2+1).
42 = (4+2)*(4+2+1).
90 = (9+0)*(9+0+1).
156 = (1+5+6)*(1+5+6+1).
数学
fQ[n_]:=块[{a=Plus@@IntegerDigits@n},a*(a+1)==n];选择[Range[0,1000],fQ](*罗伯特·威尔逊v2017年2月24日*)
黄体脂酮素
(VBA)
子计算()
表(“结果”)。选择
范围(“A1”)。选择
i=1至10000000
总和=0
对于k=1至Len(i)
总和=总和+中间值(i,k,1)
下一步
res=总和*(总和+1)
如果res=i,则
活动单元格。值=i
活动单元格。偏移量(1,0)。选择
结束如果
下一步
结束Sub
关键词
布雷夫,基础,完成,满的,非n
作者
状态
经核准的