搜索： a006576-编号：a006577
|
| |
|
|
A007629号
|
| Repfigit（REPEtive FIbonacci like diGIT）数字（或Keith数字）。
（原M4922）
|
|
+10
61
|
|
|
|
14, 19, 28, 47, 61, 75, 197, 742, 1104, 1537, 2208, 2580, 3684, 4788, 7385, 7647, 7909, 31331, 34285, 34348, 55604, 62662, 86935, 93993, 120284, 129106, 147640, 156146, 174680, 183186, 298320, 355419, 694280, 925993, 1084051, 7913837, 11436171, 33445755, 44121607
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
具有以下性质的数n>9：形成一个序列b（i），其初始项是n的t位数字，后面的项由规则b（i；然后n本身出现在序列中。
鲍曼（Baumann，2004）称之为九月数字-N.J.A.斯隆2014年3月2日
有时以美国数学家、软件工程师和作家迈克·基思（Mike Keith，生于1955年）的名字命名，他于1987年将其作为“repfigit numbers”引入-阿米拉姆·埃尔达尔2021年6月27日
|
|
|
参考文献
|
查尔斯·阿什巴赫，J.Rec.数学。，第21卷，第4期（1989年），第310页。
Jean-Marie De Konink，《法定法西斯主义》，第197条，第59页，《椭圆》，巴黎，2008年。
Mike Keith，Repfigit Numbers，J.娱乐数学。，第19卷，第2期（1987年），第41-42页。
Clifford A.Pickover，所有已知的复制斐波那契数位小于10亿，J.娱乐数学。，第22卷，第3期，第176页，1990年。
Clifford A.Pickover，《计算机与想象》，纽约圣马丁出版社，1991年，第229页。
Clifford A.Pickover，《数字的奇迹》，“循环复制斐波那契数字”，第174-5页，OUP 2000。
K.Sherriff，计算复制斐波那契数位，J.娱乐数学。，第26卷，第3期，第191页，1994年。
N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。
大卫·威尔斯（David Wells），《企鹅奇趣数字词典》，见第71页。
|
|
|
链接
|
Jhon J.Bravo、Sergio Guzmán和Florian Luca，Repdigit Keith数字《立陶宛数学杂志》，第53卷，第2期（2013年4月），第143-148页。
Edmund Copeland和Brady Haran，基思数字，数字视频（2012）。
迈克·基思，功率总和数《休闲数学》，第18卷，第4期（1986年），第275-278页。（带注释的扫描副本）
马丁·克拉扎和弗洛里安·卢卡，计算基思数《整数序列杂志》，第10卷（2007年），第07.2.2条。
|
|
|
例子
|
197是一个术语，因为序列是1、9、7、17、33、57、107、197。。。，其中包含197个。
|
|
|
MAPLE公司
|
isA007629:=进程（n）
局部L，t，a；
如果n<10，则
返回false；
结束条件：；
L:=ListTools[Reverse]（转换（n，base，10））；
t:=nops（L）；
虽然是真的
a:=加（op（-i，L），i=1..t）；
L:=[op（L），a]；
如果a>n，则
返回false；
elif a=n则
返回true；
结束条件：；
结束do：
结束进程：
从1到n do
如果是A007629（n），那么
printf（“%d，\n”，n）；
结束条件：；
|
|
|
数学
|
keithQ[n_Integer]：=模块[{b=IntegerDigits[n]，s，k=0}，s=Total[b]；而[s<n，AppendTo[b，s]；k++；s=2*s-b[[k]]]；s==n]；选择[Range[101000000]，keithQ](*T.D.诺伊2011年3月15日*）
nxt[n_]：=静止[Join[{n，Total[n]}]]；repfigitQ[m_]：=MemberQ[NestWhileList[nxt，IntegerDigits[m]，Max[#]<=m&][[All，-1]]，m]；选择[Range[10，45*10^6]，repfigitQ](*哈维·P·戴尔2016年9月2日*）
keithQ[n_，e_]：=Last[NestWhile[Rest[Append[#，Apply[Plus，#]]&，Integer Digits[n^e]，Last[#]<n&]]==n/；n> 9个
a007629[n_]：=选择[Range[10，n]，keithQ[#，1]&]
|
|
|
黄体脂酮素
|
（哈斯克尔）
导入数据。字符（数字到Int
a007629 n=a007629_列表！！（n-1）
a007629_list=过滤器是Keith[10..]，其中
isKeith n=repfigit$reverse$map digitToInt$显示n其中
repfigit ns=s==n|s<n&&（repfigit$s:init ns）其中
s=总和ns
（PARI）是（n）=如果（n<14，返回（0））；my（v=数字（n），t=#v）；而（v[#v]<n，v=concat（v，总和（i=0，t-1，v[#v-i]））；v[#v]==n\\查尔斯·格里特豪斯四世2013年2月1日
（Python）
对于范围（10，10**9）中的n：
x=[int（d）代表str（n）中的d]
y=总和（x）
而y<n：
x、 y=x[1:]+[y]，2*y-x[0]
如果y==n：
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础,美好的
|
|
|
作者
|
|
|
|
扩展
|
1997年8月15日，第12学期从2508改为2580
来自Mike Keith（Domnei（AT）aol.com）的更多条款，1999年2月15日
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.007秒内完成
|
