搜索： a050209-编号：a050209
|
| |
| |
|
|
|
12700, 16732, 32788, 32789, 37230, 43154, 48665, 55716, 87323, 91195, 92410, 93535, 120459, 120460, 123036, 123954, 140159, 141899, 141900, 145690, 149927, 159573, 172049, 175018, 191909, 209140, 215209, 248918, 255945, 255946, 255947
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
数学
|
$MaxPrecision=10^8；a=真数字[Pi，10，3*9！]；lst={}；做[b=a[[1]][[n]]；c=a[[1]][[n+1]]；d=a[[1]][[n+2]]；e=a[[1]][[n+3]]；如果[b==1&&c==1&d==1&e==1，追加到[lst，n-1]]，{n，7！，3*9！-3}]；第一次(*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2009年6月7日*）
a=真数字[Pi，10，9！]；lst={}；做[b=a[[1]][[n]]；c=a[[1]][[n+1]]；d=a[[1]][[n+2]]；e=a[[1]][[n+3]]；如果[b==1&&c==1&d==1&e==1，追加到[lst，n-1]]，{n，9！-5}]；第一次(*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基，2009年6月5日*）
压扁[Position[Partition[RealDigits[Pi，10，260000][[1]，4，1]，_？(#=={1, 1, 1, 1}&)]-1] (*哈维·P·戴尔2011年4月21日*）
SequencePosition[RealDigits[Pi，10，256000][[1]，{1，1，1}][[All，1]]-1（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2020年9月26日*）
|
|
|
交叉参考
|
|
|
|
关键字
|
基础,非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.004秒内完成
|
