%I#11 2018年7月16日16:32:42
%S 199999999999999999992899999999999.999999999999,
%电话298999999999999999992998999999999999,
%U 299989999999999999999 299999999999999999999999 2999999989999999999 999999999299999999999999999999
%N具有加性持久性的数字N=4。
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/Additive Persistence.html“>添加剂持久性</a>
%F A031286(a(n))=4。
%e重复取1999999999999999999开始的数字总和,得到199、19、10和1。共有四个步骤,因此加性持久性为4,199999999999999999是一个成员。
%t Take[Sort@Flatten[(FromDigits/@Permutations@#)&/@IntegerPartitions[199,{23},Range@9]],10000](*前10000项,_Giovanni Resta_,2018年5月29日*)
%o(PARI)nb(n)={my(nba=0);而(n>9,n=总和(n);nba++);nba;}
%o isok(n)=nb(n)==4;\\_米歇尔·马库斯,2018年5月29日
%Y参考A031286。
%Y参考具有加性持久性k的数字:A304366(k=1)、A304367(k=2)和A304368(k=3)。
%K nonn,基础
%O 1,1号机组
%A _Jaroslav Krizek,2018年5月28日
|