|
| |
|
| A111156号 |
| 倒置打印时看起来相同的数字。 |
|
三
|
|
|
|
0, 8, 69, 88, 96, 609, 689, 808, 888, 906, 986, 6009, 6699, 6889, 6969, 8008, 8698, 8888, 8968, 9006, 9696, 9886, 9966, 60009, 60809, 66099, 66899, 68089, 68889, 69069, 69869, 80008, 80808, 86098, 86898, 88088, 88888, 89068, 89868, 90006, 90806, 96096, 96896, 98086, 98886, 99066, 99866, 600009
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
评论
|
带有1的数字被排除在外。
用数字0、6、8、9写入的数字，如果颠倒，6和9将互换-罗伯特·伊斯雷尔，2018年7月2日
|
|
|
链接
|
|
|
|
MAPLE公司
|
f： =proc（n）局部L，Lp，nl；
五十： =子（1=6，2=8，3=9，转换（n，基数，4））；
nl:=nops（L）；
Lp:=接头（[6=9，9=6]，L）；
加（Lp[-i]*10^（i-1），i=1..nl）+加（L[i]*10qu（nl+i-1）），i=1..nl）；
结束进程：
g： =proc（n）局部L，Lp，nl；
五十： =子（1=6，2=8，3=9，转换（n，基数，4））；
nl:=nops（L）；
Lp:=接头（[6=9，9=6]，L）；
seq（加（Lp[-i]*10^（i-1），i=1..nl）+x*10^nl+加（L[i]*10qu（nl+i），i=1..nl），x=[0,8]）；
结束进程：
0，8，seq（op（[seq（f（n），n=4^i..4^（i+1）-1），seq#罗伯特·伊斯雷尔2018年7月2日
|
|
|
黄体脂酮素
|
（Haskell）main=print$“0”：concat[[reverse（reverse，map f x）++z++x）|x<-y]|z<-[“”，“0”]]|y<-s（iterate i“6”）]；f“0”=“0”；f'6'='9'；f'8'='8'；f'9'='6'；i（'0'：x）='6'：x；i（'6'：x）='8'：x；i（'8'：x）='9'：x；i（'9'：x）='0'：i x；i“”=“6”；s（x:y@（z:_））=如果长度x==长度z，则（x:w）：v else[x]：w:v
（Python）
来自itertools导入计数、islice、product
定义ud：返回s[：：-1].translate（{ord（'6'）：ord（`9'），ord（` 9'）：orm（`6'）}）
定义代理（）：
[0,8]的产量
对于计数（2）中的d：
对于“689”中的启动：
对于产品中的其余部分（“0689”，重复=d//2-1）：
left=开始+“”.join（rest）
右=ud（左）
对于[[“”]、[“0”、“8”]][d%2]中的中间：
yield int（左+中+右）
打印（列表（islice（agen（），48））#迈克尔·布拉尼基2022年3月29日
|
|
|
交叉参考
|
|
|
|
关键字
|
基础,容易的,非n
|
|
|
作者
|
Paul Stoeber（美国电话电报公司），2005年10月9日
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
