登录
A045549号
阶乘的最后一个非零数字为“6”的数字。
7
3, 12, 17, 24, 29, 32, 45, 46, 48, 59, 60, 61, 63, 65, 66, 68, 72, 79, 82, 95, 96, 98, 104, 107, 120, 121, 123, 127, 130, 131, 133, 139, 144, 159, 160, 161, 163, 165, 166, 168, 172, 175, 176, 178, 187, 192, 199, 209, 210, 211, 213, 215, 216, 218
抵消
1,1
评论
发件人罗伯特·伊斯雷尔2016年12月16日:(开始)
如果n在序列中,则:
如果n==0(mod 5),则n+1在序列中;
如果n==1(mod 5),则n+1为inA045547号;
如果n==2(mod 5),则n+1为inA045550型;
如果n==3(mod 5),则n+1为inA045548号.(结束)
MAPLE公司
计数:=0:
r: =1:
当计数<100 do时,n从2开始
r: =r*n;
如果r mod 10=0,则r:=r/10^ padic:-ordp(r,5)fi;
如果r mod 10=6,则计数:=计数+1;A[count]:=n fi;
日期:
seq(A[i],i=1..100); #罗伯特·伊斯雷尔2016年12月16日
数学
连接[{3},选择[Range[5,250],最大[Split[IntegerDigits[#!]][[-1,1]==6&]](*文森佐·利班迪2016年12月16日*)
f[n_]:=Mod[6 Times@@(Rest[FoldList[{1+#1[[1]],#2!2^(#1[[1]]#2)}&,{0,0},Reverse[整数位数[n,5]]]),10][[2]](*之后雅各布·西勒&格雷格·德累斯顿在里面A008904号*);f[0]=f[1]=1;选择[Range[150],f[#]==6&](*罗伯特·威尔逊v2016年12月28日*)
选择[Range[250],With[{f=#!},Drop[IntegerDigits[f],-IntegerExponent[f]][[-1]]==6&](*哈维·P·戴尔2024年9月27日*)
黄体脂酮素
(Python)
从itertools导入计数,islice
从functools导入reduce
从sympy.theory.factor导入数字
定义A045549号_gen(startvalue=2):#术语生成器>=startvalue
返回过滤器(lambda n:6==reduce(lambdax,y:x*y%10,(((6,2,4,8,6,2、4,8、2,4、8、2、4、8,2,8,2)[(a<<2)|(i*a&3)]if i*a else(1,1,2,6,4)[a])for i,a in enumerate(数字(n,5)[-1:0:-1]),6),count(max(startvalue,2)))
A045549号_list=列表(islice(A045549号_发电机(),30))#柴华武2023年12月7日
关键词
非n,基础
状态
经核准的