%I#73 2023年7月16日10:35:51

%S 5,24,49,771041533694927141682210722992600278354056556，

%电话：6811885598001272613775186552118324024432248802583926642，

%电话：354564008143680482034876252554617606366564232751407911895709106893109939

%N Ruth-Aaron数（1）：N的素因子之和=N+1的素因子和。

%C Nelson、Penney和Pomerance将这些数字称为“Aaron数字”，因为714是Babe Ruth的终身本垒打记录，Hank Aaron的715次本垒打打破了这一记录，714和715的素数之和相同_大卫·W·威尔逊_

%C术语数量<10^n:1，4，9，19，40，139，494，1748，6650，…，.-_Robert G.Wilson v_，2012年1月23日

%D John L.Drost，Ruth/Aaron Pairs，J.娱乐数学。28（第2期），120-122。

%D P.Hoffman，《只爱数字的人》，第179-181页，Hyperion，纽约州，1998年。

%D J.Roberts，《整数诱惑》，第250页，MAA 1992。

%D D.Wells，《企鹅奇趣数字词典》，第159-160页，企鹅出版社，1986年。

%H Amiram Eldar，n表，n=1..100000的a（n）（Robert G.Wilson v中的术语1..6651）

%H Joe K.Crump，<a href=“http://web.archive.org/web/20070630090153/http://www.northeroy.com/NumberTheory/RushAaron.htm“>Ruth Aaron配对算法</a>

%H Brady Haran和Carl Pomerance，<a href=“https://www.youtube.com/watch？v=aCq04N9it8U“>Aaron Numbers，数字爱好者视频（2017）。

%H G.Kreweras和Y.Poupard，《巴黎大学统计研究所出版物》，23（1978），57-74。（带注释的扫描副本）

%H Dana Mackenzie，<a href=“https://doi.org/10.1126/science.275.5301.759“>向旅行大师致敬</a>，《科学》，第275卷（1997年），第759页；<a href=”https://www.proquest.com/openview/0b38915ee572fd265291ef3fecb3bc4d/1“>替代链接</a>。

%H C.Nelson、D.E.Penney和C.Pomerance，<a href=“http://www.math.dartmouth.edu/~carlp/714和715.pdf“>714和715</a>，《休闲数学杂志》7:2（1994），第87-89页。

%H Ivars Peterson，<a href=“https://www.sciencenews.org/article/playing-ruth-aaron-pairs网站“>玩Ruth-Aaron对</a>

%H T.Trotter，Jr.，<a href=“https://web.archive.org/web/2010113025914/https://trottermath.net/numthry/rutharon.html“>Ruth-Aaron数字。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Ruth-AaronPair.html“>Ruth-Aaron配对。

%p with（numtheory）：对于从1到10000的n，执行t0：=0；t1:=系数集（n）；

%p表示j从1到nops（t1）do t0：=t0+t1[j]；od:s[n]：=t0；日期：

%p表示n从1到9999，如果s[n]=s[n+1]，则执行lprint（n，s[n]）；fi；日期：

%t fQ[n_]：=Plus@@（First@#&/@FactorInteger[n]）==Plus@@（First@#//@FactorInteger[n+1]）；选择[Range@100000，fQ]（*_Robert G.Wilson v_，2012年1月22日*）

%o（PARI）sopf（n）=我的（f=系数（n））；总和（i=1，#f[，1]，f[i，1]）

%o is（n）=sopf（n）==sopf

%o（Python）

%o来自症状输入因子int

%o定义aupton（术语）：

%o alst，k，sopfk，sotfkp1=[]，2，2，3

%o而len（alst）<术语：

%o如果sopfkp1==sopfk:alst.append（k）

%o k，sopfk，sopfkp1=k+1，sopfkp1，sum（factorint（k+2）中p的p）

%o返回alst

%o印刷（aupton（42））#_Michael S.Branicky_，2021年5月24日

%Y参见A006146、A039752、A03975%、A054378。

%K nonn公司

%O 1，1

%A _N.J.A.斯隆_