|
|
|
|
#22通过阿米拉姆·埃尔达尔2024年7月27日星期六美国东部夏令时06:07:05 |
|
|
|
#21通过阿米拉姆·埃尔达尔2024年7月27日星期六06:06:59 EDT |
| 数学
|
q[n_]:=模块[{d=IntegerDigits[n]},n==Total[DivisorSigma[1,Map[FromDigits,Delete[d,#]&/@Range[Length[d]]]];选择[范围[10^6],q](*阿米拉姆·埃尔达尔,2024年7月27日*)
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#10通过阿米拉姆·埃尔达尔2024年7月27日星期六03:14:40 EDT |
|
|
|
|
|
|
#62通过阿米拉姆·埃尔达尔2024年7月27日星期六03:14:39 EDT |
|
|
|
|
|
|
#11通过阿米拉姆·埃尔达尔2024年7月27日星期六03:14:38 EDT |
|
|
|
|
|
|
#10通过阿米拉姆·埃尔达尔2024年7月27日星期六03:14:38 EDT |
|
|
|
|
|
|
#8通过阿米拉姆·埃尔达尔2024年7月27日星期六03:14:37 EDT |
|
|
|
|
|
|
#18通过阿米拉姆·埃尔达尔2024年7月27日星期六03:14:36 EDT |
|
|
|
#17通过阿米拉姆·埃尔达尔2024年7月27日星期六03:11:31 EDT |
| 数学
|
sqQ[n_]:=整数Q[Sqrt[n]];f1[p_,e_]:=p^e+1;f2[p,e]:=(p^(e+1)-1)/(p-1);q[n_]:=模块[{fct=FactorInteger[n],u},如果[AllTrue[fct[[;;,2]],#==1&],False,u=Times@@f1@@@fct;sqQ[u]&&sqQ[次数@@f2@@fct-u]];选择[范围[10^6],q](*阿米拉姆·埃尔达尔,2024年7月27日*)
|
|
|
|
#16通过阿米拉姆·埃尔达尔2024年7月27日星期六03:06:23 EDT |
| 链接
|
Amiram Eldar,<a href=“/A064730型/b064730_1.txt“>n表,n=1..100000时a(n)>> (条款 1..750 从 哈利 J型.史密斯)
|
| 黄体脂酮素
|
(PARI)是(n)={my(f=因子(n),u);如果(issquarefree(f),0,u=prod(k=1,#f~,f[k,1]^f[k,2]+1);issquare(u)&&issquare(sigma(f)-u));}\\阿米拉姆·埃尔达尔2024年7月27日
|
|
|
|