A035497-OEIS公司

A035497号

快乐素数：在“x->x的数字平方和”的迭代中最终达到1的素数。

7, 13, 19, 23, 31, 79, 97, 103, 109, 139, 167, 193, 239, 263, 293, 313, 331, 367, 379, 383, 397, 409, 487, 563, 617, 653, 673, 683, 709, 739, 761, 863, 881, 907, 937, 1009, 1033, 1039, 1093, 1151, 1277, 1303, 1373, 1427, 1447, 1481, 1487, 1511, 1607, 1663 (列表;图表;参考文献;听;历史;文本;内部格式)

	抵消	`1,1`
	评论	`第二和第三重单位素数11111111111111和111111111111是快乐素数-托马斯·M·格林2009年10月23日` `10^4之前有200个术语，10^5之前有1465个术语，6^6之前有11144个术语，7^7之前有91323个术语，8^8之前有812371个术语，9^9之前有7408754个术语，而10^10之前有67982202个术语。这些与常数0<b<c的bprime（n）<a（n）<cprime-查尔斯·格里特豪斯四世2016年1月6日`
	参考文献	`R.K.Guy，未解决问题数论，Sect。E34。`
	链接	`纳撒尼尔·约翰斯顿，n=1..10000时的n，a（n）表` `卡洛斯·里维拉，谜题21。快乐素数，主要困惑和问题联系。` `埃里克·魏斯坦的数学世界，快乐数字` `谁博士，第42集` `维基百科，快乐数字` `维基百科，《神秘博士》第42集`
	数学	`g[n_]：=总数[整数位数[n]^2]；fQ[n_]：=NestWhileList[g@#&，n，UnsameQ，All][[-1]]==1；选择[Prime@Range@300，fQ@#&](罗伯特·威尔逊v2013年1月3日）` `hpQ[p_]：=NestWhile[Total[Integer Digits[#]^2]&，p，#=1&, 1, 50]==1; 选择[Prime[Range[300]]，hpQ](哈维·P·戴尔2022年6月7日）`
	黄体脂酮素	`（PARI）有（n）=，而（n>6，n=normal2（数字（n）））；n==1` `is（n）=具有（n）&&isprime（n）\\查尔斯·格里特豪斯四世2015年12月14日` `（Python）` `从sympy导入isprime` `def-swb（n）：返回和（map（lambda x：x*x，map（int，str（n）））` `定义快乐（bd）：` `bd不在[1,4]中：bd=swb（bd）#迭代到固定点或循环` `返回bd==1` `def-ok（n）：返回isprime（n）和happy（n）` `定义aupto（n）：如果确定（k），返回[k代表范围（1，n+1）中的k]` `印刷品（aupto（2012））#迈克尔·布拉尼基2022年7月13日`
	交叉参考	`囊性纤维变性。A007770号（快乐数字），A046519号.` `上下文中的序列：A209623型 A058620型 A038910型2011年2月27日 A059335号 A070419号` `相邻序列：A035494号 A035495号 A035496号A035498号 A035499号 A035500型`
	关键字	`非n,容易的,基础`
	作者	`N.J.A.斯隆`
	扩展	`更多术语来自帕特里克·德·格斯特1999年10月15日`
	状态	`经核准的`