登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: 编号:a307388
显示1-1个结果(共1个)。 第页1
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
A307388型 Product_{k=1..n}十进制表示的周期长度A038111号(k)/A038110美元(k) ●●●●。 +0
0
1, 27, 729, 59049, 43046721, 31381059609, 68630377364883, 150094635296999121, 328256967394537077627, 717897987691852588770249, 4710128697246244834921603689, 92709463147897837085761925410587, 3649600726280146254718103955713167842 (列表;图表;参考;;历史;文本;内部格式)
抵消
9,2
评论
偏移量为9,因为对于0<n<5,乘积是一个整数,对于4<n<9,十进制扩展以零结尾。
链接
例子
例如,对于n=9,其中(2/1)*(6/1)x(15/1)*(105/4)*(385/8)*(1001/16)*(17017/192)*(323323/3072)*(7436429/55296)=2759417025618036452625/154618822656=1784656048245.307458522736043151881959703350694444444444…因此a(9)=1。
数学
素数[n_]:=次数@@Prime[范围[n]]
全部清除[iter]
清除所有[fracPer,vp];
(*p-adic顺序*)
vp[p_?PrimeQ,n_Integer]:=
长度@NestWhileList[#/p&,n/p,整数Q]-1;
(*小数点扩展期*)
fracPer[q_Integer]:=0;
fracPer[q_Rational]:=模块[{den,p2,p5},den=分母[q];
p2=vp[2,den];
p5=vp[5,den];
den=den/2^p2/5^p5;
如果[den==1,0,乘数阶[10,den]]];
iter[{periods_,frac_,n}]:={periods,fracPer[#]},#,n+1}&[
frac*Primarial[n]/EulerPhi[Primarial[1,n-1]]];
第一次压平@
嵌套[iter,{0,Primorial[0]/EulerPhi[Primorial[0]],0},50]
交叉参考
关键词
非n,基础
作者
杰米·莫肯2019年4月6日
状态
已批准
第页1

搜索在0.005秒内完成

查找|欢迎|维基|寄存器|音乐|地块2|Demos公司|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月29日01:36。包含371264个序列。(在oeis4上运行。)