%I#11 2019年8月13日05:34:35
%S 0,0,2,5,2,5,1,8,0,1,5,5,1,7,1,7,2,8,6,7,2,7,0,3,6,4,3,7,1.3,
%T 7,3,1,0,5,7,4,6,0,9,2,9,6,5,4,5,9,7,5,5,8,3,7,6,4,4,1,2,2,7,
%U 2,4,7,1,3,7,7,7,9,6,1,7,8,2,8,3,2,3,8,9,0,0,9,3,9,7,9,4,9,0
%N a(N)是N ^N最后一个非零数字之前的数字。
%朱棣文证明了常数0.00252541801……是超越的。
%洪越楚,<a href=“https://arxiv.org/abs/11908.03855“>来自特定序列的新先验数,arXiv:1908.03855[math.NT],2019。
%t a[n_]:=楼层[PowerMod[n/10^整数指数[n,10],n,100]/10];阵列[a,100](*Giovanni Resta_,2019年8月13日*)
%o(PARI)a(n)={my(d=数字(n^n));forstep(k=#d,1,-1,if(d[k],if(k==1,return(0));return(d[k-1]););return(0);}
%Y参考A056849。
%K nonn,基础
%O 1,3
%马库斯,2019年8月13日
|