%I#41 2023年12月7日16:44:34

%S 9、10、11、13、15、16、18、22、27、30、31、33、39、44、54、57、70、71、73、77、80、81、83，

%电话89,94102105106108114119125128137142149154157170，

%U 171173184185186188190191193197204207220221223

%N阶乘的最后一个非零数字为“8”的数字。

%C自2016年12月16日以色列罗贝尔特（_Robert Israel_）起：（开始）

%C如果n在序列中，则：

%C如果n==0（mod 5），则n+1在序列中；

%C如果n==1（mod 5），n+1在A045549中；

%C如果n==2（mod 5），n+1在A045548中；

%C如果n==3（mod 5），则n+1在A045547中。（结束）

%H Robert Israel，n表，a（n）表示n=1..10000（n=1..1000来自Harvey P.Dale）

%H<a href=“/index/Fi#final”>与数字的最后位数相关的序列索引条目</a>

%p计数：=0：

%p r：=1：

%当计数<100 do时，n从2开始为p

%p r：=r*n；

%p如果r mod 10=0，则r:=r/10^padic:-ordp（r，5）fi；

%p如果r mod 10=8，则计数：=计数+1；A[count]：=n fi；

%日期：

%p序列（A[i]，i=1..100）；#_罗伯特·伊斯雷尔（Robert Israel），2016年12月16日

%t选择[Range[5250]，Last[Flatten[Most[Split[Integer Digits[#！]]]]==8&]（*哈维·P·戴尔，2014年6月11日*）

%t f[n_]：=Mod[6倍@@（Rest[FoldList[{1+#1[[1]]，#2！2^（#1[[1]]#2）}&，{0，0}，Reverse[IntegerDigits[n，5]]]），10][2]（*在A008904*中的_Jacob A.Siehler_&_Greg Dresden_之后）；f[0]=f[1]=1；选择[范围[150]，f[#]==8&]（*_Robert G.Wilson v_，2016年12月28日*）

%o（Python）

%o从itertools导入计数，islice

%o来自functools import reduce

%o来自症状合成因子_导入数字

%o定义A045550_gen（startvalue=1）：#术语生成器>=startvalue

%o返回滤波器（λn:8==减少（λx，y:x*y%10，（（（6,2,4,8,6,2,4,8,1,6,2,4，8,6,1,4,4,8，6,2）[（a<<2）|（i*a&3）]如果i*a其他（1,1,2,6,4）[a]）对于i，枚举中的a（数字（n，5）[-1:0:-1]），6），计数（最大值（起始值，1）））

%o A045550_list=列表（islice（A045550_gen（），30））#_Chai Wah Wu_，2023年12月7日

%Y参考A008904、A045547、A04554、A0455 49。

%K nonn，基础

%O 1,1号机组

%杰夫·伯奇（_Jeff Burch）_