|
|
|
|
#13通过哈维·P·戴尔2020年8月30日星期日13:50:07 EDT |
|
|
|
#12通过哈维·P·戴尔2020年8月30日星期日13:50:04 EDT |
| 数学
|
sp0[n_]:=模块[{c=1,d},而[d=FromDigits[Join[PadRight[{1},n+1,0],IntegerDigits[c]]];数字计数[d,10,0]>n | |复合Q[d],c=c+2];FromDigits[Join[PadRight[{1},n+1,0],IntegerDigits[c]]];数组[sp0,20](*)_] (*要求 数学软件 版本 10 或 后来*) (* _Harvey P.Dale_,2020年8月30日*)
|
| 状态
|
经核准的
编辑
|
|
|
|
#11通过哈维·P·戴尔2020年8月30日星期日13:48:50 EDT |
|
|
|
#10通过哈维·P·戴尔2020年8月30日星期日13:48:47 EDT |
| 数学
|
sp0[n_]:=模块[{c=1,d},而[d=FromDigits[Join[PadRight[{1},n+1,0],IntegerDigits[c]]];数字计数[d,10,0]>n | |复合Q[d],c=c+2];FromDigits[Join[PadRight[{1},n+1,0],IntegerDigits[c]]];数组[sp0,20](*哈维·P·戴尔2020年8月30日*)
|
| 状态
|
经核准的
编辑
|
|
|
|
#9通过哈维·P·戴尔2020年8月30日星期日13:43:50 EDT |
|
|
|
#8通过哈维·P·戴尔2020年8月30日星期日13:43:47 EDT |
| 数学
|
sp0[n_]:=模块[{c=1,d日},同时[复合材料Q[d日=FromDigits[Join[PadRight从数字[Join[PadRight[ {[{1} ,n+1,0],整数位数[c]]]],]]];数字计数[d日,10,0]>n个||复合材料Q[d日],c=c+2];FromDigits[Join[PadRight[{1},n+1,0],IntegerDigits[c]]];数组[sp0,20](*哈维·P·戴尔2020年8月30日*)
|
| 状态
|
经核准的
编辑
|
|
|
|
#7通过哈维·P·戴尔2020年8月30日星期日13:36:59 EDT |
|
|
|
#6通过哈维·P·戴尔2020年8月30日星期日13:36:53 EDT |
| 链接
|
Harvey P.Dale,<a href=“/A139535号/b139535.txt“>n表,n=1..100时为a(n)</a>
|
| 状态
|
经核准的
编辑
|
|
|
|
#5个通过哈维·P·戴尔2020年8月30日星期日13:35:09 EDT |
|
|
|
#4通过哈维·P·戴尔2020年8月30日星期日13:35:06 EDT |
| 数学
|
sp0[n_]:=模块[{c=1},而[CompositeQ[FromDigits[Join[PadRight[{1},n+1,0],IntegerDigits[c]]],c=c+2];FromDigits[Join[PadRight[{1},n+1,0],IntegerDigits[c]]];数组[sp0,20](*哈维·P·戴尔2020年8月30日*)
|
| 状态
|
经核准的
编辑
|
|
|
|