A005589-OEIS公司

A005589号

美国英语名称n中的字母数，不包括空格和连字符。
（原名M2277）

4, 3, 3, 5, 4, 4, 3, 5, 5, 4, 3, 6, 6, 8, 8, 7, 7, 9, 8, 8, 6, 9, 9, 11, 10, 10, 9, 11, 11, 10, 6, 9, 9, 11, 10, 10, 9, 11, 11, 10, 5, 8, 8, 10, 9, 9, 8, 10, 10, 9, 5, 8, 8, 10, 9, 9, 8, 10, 10, 9, 5, 8, 8, 10, 9, 9, 8, 10, 10, 9, 7, 10, 10, 12, 11, 11, 10, 12, 12, 11, 6, 9, 9, 11, 10, 10, 9, 11, 11, 10, 6, 9, 9, 11, 10, 10, 9, 11, 11, 10, 10, 13, 13, 15, 14, 14, 13, 15, 15, 14, 13, 16, 16, 18, 18, 17, 17, 19, 18, 18, 16 (列表;图表;参考;听;历史;文本;内部格式)

	抵消	`0,1`
	评论	`Diane Karloff观察到（2007年11月27日）反复应用地图k->A005589号（k）任何起始值n总是等于4（参见。A016037号,133418英镑).` `上述观察结果之前由R.Schroeppel和R.W.Gosper于1972年在HAKMEM进行（项目134）-巴托洛米耶·鲍利克，2023年6月12日` `对于a（100）以外的术语，此序列使用美式英语风格，“一百零一”（不是“一百零壹”）和短刻度（十亿=10^9，不是10^12）-M.F.哈斯勒2013年11月3日` 戴安·卡洛夫（Diane Karloff）对上述观察的解释：在许多语言中，都存在一个数字N，在这个数字之后，所有数字的字母都比数字本身少。N在英语、德语和保加利亚语中为4，在俄语中为11。如果在区间[1，N]中有等于其字母数的数字，则它们是吸引子。在英语和德语中，唯一的吸引子是4，在保加利亚语中是3，在俄语中是2，3和11。在区间[1，N]中也可能存在数字循环，例如保加利亚语中的4和6（分别为6和4个字母）或俄语中的4,5和6（各自为6,4和5个字母）。英语中没有循环，因此上述观察是正确的-伊万·伊纳基耶夫2014年9月20日
	参考文献	`问题驱动，尤里卡，37（1974），8-11和33。` `N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。`
	链接	`Ely Golden，n=0..11159时的n，a（n）表` `M.Beeler、R.W.Gosper和R.Schroeppel，项目134作者：Beeler，M.、Gosper，R.W.和Schroeppel，R.HAKMEM。麻省理工学院AI备忘录2391972年2月29日。` `尤里卡，问题驱动，尤里卡，37（1974），8-11，32-33，24-27。（带注释的扫描副本）` `Ely Golden，Java中的任意精度数字命名程序` `Mathematica堆栈交换，如何用英语单词表达整数？` `兰登·科特·诺尔，数字的英文名称.` `埃里克·魏斯坦的数学世界，编号.` `Robert G.Wilson v，0到11159之间的数字的英文名称，不带空格或连字符.` `与n中字母数相关的序列索引项`
	例子	`请注意A052360型（373373）=64，而a（373373=56。`
	数学	`inWords[n_]：=模块[{r，` `numNames={“”，“一”，“二”，“三”，“四”，“五”，“六”，“七”，“八”，“九”}，` `teenNames={“十”，“十一”，“十二”，“十三”，“十四”，“十五”，“十六”，“十七”，“十八”，“十九”}，` `tensNames={“”，“十”，“二十”，“三十”，“四十”，“五十”，“六十”，“七十”，“八十”，“九十”}，` `小数={“”，“千”，“百万”，“十亿”，“万亿”，“四万亿”，”五亿“，”六亿“，` `r=如果[#！=0，numNames[[#+1]]<>“百”` `（<>如果[#2！=0\|\|#3！=0，“and”，“”]），` `“”]<>开关[#2，0，numNames[[#3+1]]，1，teenNames[#3+2]，_，tensNames[[2+1]]<>numNames[[#3+1]]&@@@` `（PadLeft[FromDigits/@Characters@StringReverse@#，3]和/@StringCases[StringRevverse@IntegerString@n，RegularExpression[“\\d{1，3}”]]）；` `StringJoin@Reverse@MapThread[If[#！=“”，StringJoin[##]，“”]&，{r，Take[decimals，Length@r]}]]；（将链接中的内容修改为10^102-1）` `f[n_]：=字符串长度@inWords@n；f[0]=4；数组[f，84，0]` `(罗伯特·威尔逊v，2007年11月4日，2015年3月31日修订，小修订伊万·潘琴科2019年11月10日）` `a[n_]：=StringLength[StringReplace[IntegerName[n，“Words”]，“，”\|“”\|“\[Hyphen]”->“”]]；a/@范围[0,83]（Mma版本>=10，乔瓦尼·雷斯塔2017年4月10日）`
	黄体脂酮素	（平价）A005589号（n，t=[10^12，#“万亿”，10^9，#“十亿”，10,6，#“百万”，1000，#“千”，100，#“百”]）={n>99&&forstep（i=1，#t，2，n<t[i]&&next；n=divrem（n，t[i]）；n[1]>999&error（“n>=10^”，估值（t[1]，10）+3，“需要扩展的第二个参数”）；return(A005589美元（n[1]）+t[i+1]+if（n[2]，A005589号（n[2]））；if（n<20，#（[“零”，“一”，“二”，“三”，“四”，“五”，“六”，“七”，“八”，“九”，“十”，“十一”，“十二”，“十三”，“十四”，“十五”，“十六”，“十七”，“十八”，“十九”][n+1]），#（[[“二十”，“三十”，“四十”，“五十”，“六十”，“七十”，“八十”，“九十”][n\10-1]）+if（n%10，A005589号（n%10））}\\使用上面Mathematica部分中列出的名称可以很容易地将第二个参数扩展为较大的数字。只需要字符串长度，因此很容易在不需要额外知识和不写出名称的情况下进一步扩展此列表-M.F.哈斯勒2011年7月26日，于2021年6月15日进行小修 `（Python）` `从num2words导入num2vods` `定义a（n）：` `x=数字2个单词（n）.replace（'和'，'）` `l=[范围（97，123）中i的chr（i）]` `返回和（如果i in l，x中i为1）` `打印（[范围（101）中n的a（n）]）#因德拉尼尔·戈什2017年7月5日`
	交叉参考	`囊性纤维变性。A006944号（序数），A052360型,A052362号,A052363号,A134629号,133418英镑,A016037号.` `请参见A362123型用于其他版本。` `囊性纤维变性。A007208号（德语模拟）。` `上下文中的序列：A011762号 A195780号 A063571号邮编：362123 A052360型 A263046型` `相邻序列：A005586号 A005587号 A005588号A005590号 A005591号 A005592号`
	关键词	`非n,单词,美好的`
	作者	`N.J.A.斯隆`
	扩展	`由Larry Reeves（larryr（AT）acm.org）和艾伦·C·韦克斯勒2000年3月20日` `删除了错误的b文件N.J.A.斯隆2008年9月25日` `DATA字段中显示的术语数量超过了通常的数量，以避免与A362123型. -N.J.A.斯隆2023年4月20日`
	状态	`经核准的`