1，3

安德鲁·豪罗伊德，n=1..10000的n，a（n）表

与a（3^e）=3^e相乘，a（p^e）=（（p-1）*e+p）*p^（e-1）如果p mod 3=1，a（p^e）=p^（2*地板（e/2）），如果p mod 3=2。-弗拉·约德维奇2003年9月27日

A087694号：=proc（n）选项记得；当地pf，p，f，e；如果n=1，那么1就1；如果nops（pf）=ifactors（n）[2]；如果nops（pf）=1，那么f:=op（1，pf）；p:=op（1，f）；e:=op（2，f）；如果p=3，那么n；elif p p mod 3=1，然后（p-1）*e+p）*p^（e-1）；else p ^（2*地板（e/2））；结束if结束，else；else mul（procnname（op（1，p）^op（2，p）），p=pfpf pf pf pf pf pf p=pf（e mod 3，p）3=1，p；结束if；end if；end proc:

顺序(A087694号（n） ，n=1..70）#R、 J.马萨2011年1月7日

a[n_q]：=如果[n==1，1，乘积[{p，e}=pe；其中[p==3，3^e，Mod[p，3]==2，（p^2）^商[e，2]，真，（（p-1）e+p）p^（e-1）]，{pe，factorniter[n]}]]；

a/@范围[1100](*让·弗朗索瓦·阿尔科弗2019年9月20日，巴黎*）

（PARI）a（n）={my（f=因子（n））；prod（i=1，#f~，my（p=f[i，1]，e=f[i，2]）；如果（p==3，3^e，if（p%3==2，（p^2）^（e\2），（（p-1）*e+p）*p^（e-1）））}\\安德鲁·豪罗伊德2018年7月9日

囊性纤维变性。A000086号.

上下文顺序：A131228号 A238558号 A131129号*A010262号 A201516号 A105579号

相邻序列：A087691号 A087692号 A087693号*A087695号 A087696号 A087697号

骡子,不

Yuval Dekel（dekelyuval（AT）hotmail.com），2003年9月27日

经核准的