%I#20 2024年3月10日00:24:28
%S 0,11,22,33,44,55,66,77,88,99100111122133144155166188199,
%电话:20021224236248251026122714281629183003133263393412,
%电话:351536183721382439274004144284312441645204624848324936500515
%N a(N)是由N的数字与N的数字乘积的数字串联而成的数字。
%H Altug Alkan,n的a(n)一阶差分的线形图</a>
%e对于n=10,n的数字是1和0,它们的乘积是0,串联得到1 0 0。
%t表[FromDigits[Join[IntegerDigits[n],IntegerPigits[Product[Part[Integer Digits[n],k],{k,Length[IntegereDigits]}]],{n,0,51}](*_Stefano Spezia_,2023年8月13日*)
%o(PARI)mydigits(n)=如果(n,数字(n),[0]);
%o a(n)=我的(d=我的数字(n));来自数字(concat(d,mydigits(prod(k=1,#d,d[k])));
%Y参见A007954、A108773、A302575。
%K nonn,基础,简单
%0、2
%马库斯,2018年4月13日
|