%I#8 2021年7月19日01:26:30
%S 1,2,9,18,3,612525011252250375750,5,10,45,90,15,306251250,
%电话:56251125018753750,25,50225450,751502401480221609432187203,
%电话:1440630012560025027011255402250900351800750120052401010804521609036015720301500625300125013505625270112051875
%N a(N)=A276086(A328623(N))。
%H<a href=“/index/Pri#primorialbase”>与primorial base相关序列的索引条目</a>
%F a(n)=A276086(A328623(n))。
%F A342001(a(n))=A346253(n)。
%o(PARI)A346233(n)={my(p=2,m=1);while(n>0,my(d=n%p);if(d>0,m*=p^if(2==p,d,lift(Mod(d,p)/2)));n\=p;p=nextprime(1+p));return(m);};
%Y参见A276086、A328623、A346253。
%Y另请参阅A346101、A346102。
%K nonn,基础
%0、2
%A _Antti Karttunen,2021年7月18日
|