登录

OEIS由OEIS基金会的许多慷慨捐赠者.

 

提示 （来自的问候整数序列在线百科全书!) A178360型 数字n，使d（1）^1+d（2）^2+…+d（p）^p和d（1）^p+d（2）^p-1+…+d（p）^1是正方形，其中d（i），i=1..p是n的数字。 1 1, 4, 9, 10, 40, 90, 100, 148, 400, 838, 841, 900, 1000, 1111, 1440, 4000, 4058, 6430, 7388, 8504, 8668, 8837, 9000, 10000, 10111, 10200, 11011, 11101, 11110, 11215, 12321, 13231, 13333, 13955, 14083, 14403, 14464, 17780, 18480, 18770, 20112, 21012, 21102, 21412, 22322, 22592, 25652, 29522, 30205, 30343, 30441 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1,2 链接 哈维·P·戴尔，n=1..250时的n，a（n）表 例子 841在序列中，因为： 8 + 4^2 + 1^3 = 25 = 5^2 ; 8^3 + 4^2 + 1 = 529 = 23^2. MAPLE公司 with（numtheory）：对于从1到50000的n do:l:=长度（n）：n0:=n:s1:=0:s2:=0:对于 从1到l的m do:q:=n0:u:=irem（q，10）：v:=iquo（q，10）：n0:=v:s1:=s1+u^（l-m+1）：s2:=s2+u^m:od:s10:=sqrt（s1）：s20:=sqrt（s2）：如果s10=地板（s10）和s20=地板（s20），则打印f（`%d，`，n）：否则fi:od: 数学 ndnQ[n_]：=模块[{idn=IntegerDigits[n]，len=Range[IntegerLength[n]]}，AllTrue[{Sqrt[Total[idn^len]]，Sqrt[Cotal[Reverse[idn]^len]]}，IntegerQ]]；选择[Range[31000]，ndnQ]（*程序使用Mathematica版本10中的AllTrue函数*）(*哈维·P·戴尔2018年2月10日*） 交叉参考 上下文中的序列：A178224号 A102985号 A112401年*A197125号 A197129号 A115688号 相邻序列：A178357号 A178358号 A178359号*A178361号 A178362号 A178363号 关键词 非n,基础 作者 米歇尔·拉格诺2010年12月21日 状态 经核准的

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

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

最后修改时间：美国东部时间2024年4月18日04:56。包含371767个序列。（在oeis4上运行。）