OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐助者

 

标志
提示
(来自的问候整数序列在线百科全书!)
A118470型 数字k,其中数字和(k)+数字和(k^2)+数字(k^3)=数字和(k^4)。 1
0, 162, 171, 351, 468, 558, 1620, 1710, 2106, 3321, 3510, 4023, 4680, 5121, 5247, 5544, 5580, 5868, 8001, 10008, 10071, 10224, 10305, 10503, 10818, 11025, 11241, 11511, 12321, 12654, 12888, 13239, 14004, 14301, 15471, 15876, 16011, 16200, 16218, 17100 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
如果x是一个项,那么10*x也是-迈克尔·布拉尼基2021年12月25日
链接
J.W.L.(Jan)埃兰,n=1..3721时的n,a(n)表(所有条款<10^7)
例子
162是一个术语,因为s(162)=9,s(162^2)=18,s(161^3)=27,s(62^4)=54和9+18+27=54。
数学
选择[Range[0,20000],Sum[i*(DigitCount[#][[i]]+DigitCoont[#^2][[i]]+DigetCount[#^3][[i]]),{i,1,9}]=总和[i*数字计数[#^4][i],{i、1、9}]&](*斯特凡·斯坦纳伯格2006年5月4日*)
s[n_]:=加@@整数位数@n; 选择[Range[0,16217],s@#+s[#^2]+s[#^3]==s[##^4]&](*罗伯特·威尔逊v2006年5月4日*)
并行[While[True,If[Total[Integer Digits[n]]+Total[Cinteger Diges[n^2]]+Toll[CintegerDigits[Cn^3]]==Total[整数位数[n^4],打印[n]];n++];n)(*J.W.L.(一月)埃兰2021年12月25日*)
黄体脂酮素
(PARI)是(n)=我的(s=总和);s(n)+s(n^2)+s(n^3)==s(n^4)\\安德斯·赫尔斯特罗姆2015年9月16日
(PARI)选择(isA118470(n)={sumdigits(n)+sumdigits(n^2)+sumdigits(n^3)==sumdigits(n^4)},[0..1000])\\J.W.L.(一月)埃兰2021年12月25日
(Python)
def-sd(n):返回和(map(int,str(n)))
def-ok(n):返回sd(n)+sd(n**2)+sd(n**3)==sd(n**4)
打印([k代表范围(20000)内的k,如果正常(k)])#迈克尔·布拉尼基,2021年12月25日
交叉参考
囊性纤维变性。A007953号,A004159号,A004164号,A055565型
关键词
非n,基础
作者
Luc Stevens(lms022(AT)yahoo.com),2006年5月4日
扩展
更多术语来自约书亚·祖克2006年5月11日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。

上次修改时间:美国东部夏令时2024年5月26日11:31。包含372824个序列。(在oeis4上运行。)