编辑
经核准的
非n,基础,容易的,改变
(PARI)dsum(n)={my(s=0);while(n>9,s+=n%10;n\=10);s+n};对于(n个=1,1电子6,如果(深亚微米(n个^2)/#Str公司(n个^2)==7,打印1(n个", ")))
对于(n=1,1e6,如果(dsum(n^2)/#Str(n^ 2)==7,打印1(n“,”))\\查尔斯·格里特豪斯四世,2009年11月1日
的后续1964年.
平均 属于 数字 属于 n个^2=秒:A164771号(秒=1),A164770号(s=2),A164782号(秒=三),A164776号(秒=4),1964年1月(秒=5),A164778号(秒=6),A164771号A164773号(个)=17),A164772号(s=8)。
编程依据查尔斯·格里特豪斯四世,2009年11月1日
Harvey P.Dale,<a href=“/A164773号/b164773.txt“>n表,n=1..925时为a(n)</a>
选择[Range[30000],Mean[Integer Digits[#^2]==7&](*哈维·P·戴尔2013年2月22日*)
节目制作人 _查尔斯·格里特豪斯四世(查尔斯.大房子(自动变速箱)案例.教育部),_,2009年11月1日
OEIS服务器: https://oeis.org/edit/global/147
_扎克·塞多夫(扎克塞多夫(自动变速箱)雅虎.通用域名格式),_,2009年8月26日
OEIS服务器: https://oeis.org/edit/global/139
用平均数n^2为s=7的性质来计算n。
1667, 2167, 2383, 2387, 2437, 2563, 2567, 2617, 2626, 2824, 2828, 2963, 3143, 3157, 17313, 19437, 19917, 21417, 21633, 22083, 22113, 22293, 23214, 23622, 23664, 23874, 23937, 24207, 24228, 24267, 24417, 24474, 25824, 25836, 25863, 26067
1,1
1667^2=2778889和(2+7+7+8+8+8+9)/7=7
17313^2=299739969和(2+9+9+7+3+9+6+9)/9=7。
(PARI)dsum(n)={my(s=0);while(n>9,s+=n%10;n\=10);s+n};对于(n=1,1e6,如果(dsum(n^2)/#Str(n^ 2)==7,打印1(n“,”))
A164770号(s=2),A164771号(s=1),A164772号(s=8)。
非n,基础,容易的
扎克·塞多夫(zakseidov(AT)yahoo.com),2009年8月26日
Charles R Greathouse IV(Charles.Greathouse(AT)case.edu)计划,2009年11月1日