|
|
|
|
|
|
|
|
|
#16通过阿洛伊斯·海因茨2020年3月16日星期一13:03:00 EDT |
|
|
|
|
|
|
|
#15通过罗伯特·普莱斯2020年3月16日星期一11:53:46 EDT |
|
|
|
|
|
|
|
#14通过罗伯特·普莱斯2020年3月16日星期一11:53:26 EDT |
|
| 数学
|
fn[n_]：=FromDigits[Flatten[IntegerDigits[CeleteCases[Flatted[FactorInteger[n]]，1]]]；
映射[Length，Table[NestWhileList[fn，n，#！=1&&！PrimeQ[#]&]，{n，2，
19}], {1}] - 1 (*罗伯特·普莱斯2020年3月16日*）
|
|
| 扩展
|
A080670型[n_]：=从数字开始[整平@整数位数[展平[因子整数@n /. {1 -> {}}]]];
A080670型[1] = 1; （*功能A080670型摘自Robert G Wilson v*）
表[
如果[PrimeQ[n]，0，
试验=n；步骤=1；
当[！PrimeQ[测试=A080670型[测试]]，步骤++]；
步骤]，{n，2，19}](*罗伯特·普莱斯2019年8月30日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#13通过N.J.A.斯隆2019年8月30日星期五21:48:09 EDT |
|
|
|
|
|
|
|
#12通过罗伯特·普莱斯美国东部时间2019年8月30日星期五20:28:42 |
|
|
|
|
|
|
|
#11通过罗伯特·普莱斯2019年8月30日星期五20:28:09 EDT |
|
| 扩展
|
A080670型[n个_] :=From数字[压扁@整数位数[压扁[因子整数@n个_] :=/. {1-> {}}]]];
From数字[
压扁@IntegerDigits[展平[因子整数@n /. {1 -> {}}]]];
A080670型[1] = 1; (*; (*功能A080670型摘自Robert G Wilson v*)*)
如果[PrimeQ[n]，0，
|
|
|
|
|
|
|
#10个通过罗伯特·普莱斯2019年8月30日星期五20:27:05 EDT |
|
| 扩展
|
A080670级[编号]：=
From数字[
整平@整数位数[展平[因子整数@n /. {1 -> {}}]]];
A080670型[1] =1；（*功能A080670型摘自Robert G Wilson v*）
表[
如果[PrimeQ[n]，0，
试验=n；步骤=1；
当[！PrimeQ[测试=A080670型[测试]]，步骤++]；
步骤]，{n，2，19}](*罗伯特·普莱斯2019年8月30日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#9通过N.J.A.斯隆2013年10月27日周日02:22:14 EDT |
|
|
|
|
|
|
|
#8通过N.J.A.斯隆2013年10月27日周日02:22:11 EDT |
|
| 名称
|
重复A080670型从n开始；a（n）=首要的数 属于 步骤 到 那个达到 是一 达到首要的如果没有达到素数，则为-1。
|
|
| 评论
|
如果n是素数，a（n）=0。
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#7通过N.J.A.斯隆2013年10月27日星期日美国东部夏令时02:20:43 |
|
|
|
|
|
|
