A090425-OEIS公司

A090425美元

快乐数所需的迭代次数A007770元（n）收敛到1。

三

1, 6, 2, 3, 5, 4, 4, 3, 4, 5, 5, 3, 6, 4, 4, 3, 5, 5, 4, 2, 3, 5, 4, 3, 6, 6, 4, 4, 5, 5, 4, 6, 4, 4, 4, 6, 4, 6, 6, 6, 6, 4, 4, 6, 3, 4, 3, 6, 6, 4, 6, 6, 6, 5, 7, 6, 7, 6, 6, 6, 7, 5, 6, 6, 6, 7, 5, 5, 5, 4, 4, 7, 5, 5, 5, 7, 7, 4, 7, 4, 5, 3, 4, 6, 6, 6, 7, 6, 6, 4, 7, 7, 4, 5, 5, 4, 6, 3, 6, 7, 6, 4

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,2

计数包括开始和结束。

链接

莱因哈德·祖姆凯勒（Reinhard Zumkeller），n，a（n）表，n=1.10000

蔡先生和夏周先生，快乐数字的高度洛基山。数学杂志。38 (6) (2008) 1921-1926. [来自R.J.马塔尔2010年4月22日]

埃里克·魏斯坦的数学世界，快乐数字.

例子

7是第二个快乐数字，迭代数字平方和加法得到序列{7,49,97130,10,1}，因此a（2）=6。

数学

happy[n_]：=如果[（list=NestWhileList[Plus@@（IntegerDigits[#]^2）&，n，UnsameQ，All]）[[-1]]==1，长度[list]-1，无]；阵列[happy，700](*阿米拉姆·埃尔达尔2022年4月12日*）

黄体脂酮素

（哈斯克尔）

a090425 n=snd$直到（（==1）。fst）

（（u，v）->（a003132 u，v+1））（a007770 n，1）

--莱因哈德·祖姆凯勒2012年8月7日

（Python）

从itertools导入计数，islice

定义A090425美元_gen（）：术语的#生成器

对于计数（1）中的n：

c=1

而n不在{1，37，58，89，145，42，20，4，16}中：

n=总和（（0，1，4，9，16，25，36，49，64，81）[ord（d）-48]表示str（n）中的d）

c+=1

如果n==1：

产量c

A090425美元_list=列表（岛屿(A090425美元_发电机（），20））#柴华湖2023年8月2日

交叉参考

囊性纤维变性。A007770号.

囊性纤维变性。A003132号.

上下文中的序列：A134105号 A167509型 A011362号*A160081型 A240937型 A178054号

相邻序列：A090422号 A090423号 A090424美元*A090426号 A090427号 A090428型

关键词

非n,基础

作者

埃里克·韦斯特因2003年11月30日

状态

经核准的