%I#14 2022年7月31日07:43:41
%S 1,2,3,9,15,18,27,36,51,81,93169181348444504528188120319843,
%电话:164791668545435129056138510214008358326
%N数k,使(k^k+k!)的数字之和可被k整除。
%C商是2、3、2、6、6、5、8、7、6、9、9、10、10、12、12、15、15、18、19、19、21、23、22、24、25。
%C不再有<500000的条款_拉尔斯·布隆伯格,2011年7月5日
%e 1881^1881+1881的数字!28215和28215之和可被1881整除,因此1881在序列中。
%t做[s=n^n+n!;k=Plus@@IntegerDigits[s];如果[Mod[k,n]==0,打印[n]],{n,1,10000}]
%t选择[Range[360000],Divisible[Total[Integer Digits[#^#+#!]],#]&](*哈维·P·戴尔,2018年12月27日*)
%Y参考A053042、A109662。
%K基,更多,无
%O 1,2号机组
%2005年8月6日,A_Ryan Propper_
%E a(21)-a(27),来自L ars Blomberg,2011年7月5日
|