%I#39 2022年2月16日23:59:55

%S 0,2,9,11,18,20,29,38,45,47,90,99101110119144180182189198，

%电话：200245290299335344351362369380398450452459461468470，

%电话：479488495497639729794839848900929954990999

%N数字m，使2m和m^2具有相同的数字和。

%证明这个序列是无限的一个简单方法是观察它包含10^k+1形式的所有数字_Stefan Steinerberger_，2006年3月31日

%C对于n>0：2n或n^2的数字根（A010888）为4或9_Reinhard Zumkeller_，2007年10月1日

%罗伦·拉尔森翻译保罗·范德林德的书中的第117题。

%H Reinhard Zumkeller和Harvey P.Dale，n表，n=1..1000的a（n）

%F A007953（A005843（a（n）））=A007952（A000290（a（n）））。-_Reinhard Zumkeller_，2007年10月1日

%t选择[Range[0，1000]，Sum[DigitCount[2#][[i]]*i，{i，1，9}]==总和[Digit Count[#^2][[i]]*i、{i、1、9}]&]（*_Stefan Steinerberger_2006年3月31日*）

%t选择[Range[01000]，Total[IntegerDigits[2#]]==Total[整数位数[#^2]&]（*哈维·P·达尔，2012年9月25日*）

%o（哈斯克尔）

%o导入数据。列表（元素索引）

%o导入数据。功能（打开）

%o a049343 n=a049343_列表！！（n-1）

%o a049343_list=元素索引0

%o$zipWith（（-）` on `a007953）a005843_list a000290_list

%o——_ Inhard Zumkeller_，2011年4月3日

%o（岩浆）[0..1000]中的n：n |&+Intseq（2*n）eq&+Intseq（n^2）]；//_文森佐·利班迪（Vincenzo Librandi），2015年11月17日

%Y参考A058369、A077436（二进制）。-_Reinhard Zumkeller_2011年4月3日

%K nonn，基础，简单，漂亮，看

%O 1,2号机组

%A R.K.盖伊_