%I#20 2022年6月7日13:46:01
%S 2,30969969030425026352721026064515689275851355624017992790,
%电话:5766152219975151659023630035361343065653840156066319856068810,
%电话:962947420735983927056946215901134429196419130606213075415963491270298195927779312142691724534810429868925511217482600306406141434158090
%N与A116536相关的股息。
%C a(2)-a(4)由Alladi和Erdős(1977)提到。他们推测这个序列是无限的_Amiram Eldar,2020年11月2日
%H Amiram Eldar,<a href=“/A19578/b159578.txt”>n表,a(n)表示n=1..80</a>
%H Krishnaswami Alladi和Paul Erd,<a href=“https://projecteuclid.org/euclid.pjm/1102811427“>关于加法算术函数,太平洋数学杂志,第71卷,第2期(1977年),第275-294页,<a href=”https://msp.org/pjm/1977/71-2/pjm-v71-n2-p01-s.pdf“>替代链接。见第290页。
%F a(n)=A002110(A051838(n))_Amiram Eldar,2020年11月2日
%e a(2)=30,因为A116536中的2*3*5=30,2+3+5=10,以及30/10=3。
%p#首先定义t1,序列A051838。
%p t1:=[1,3,8,13,23,38,39,41,43,48,50,53,56,57,58,66,68,
%第70、73、77、84、90、94、98126128134140143145149页,
%第151153157160164167168172174176182191页,
%电话:19419620021021215217218219222225228,
%第229页];
%p p:=i素数;
%p数:=n->mul(p(i),i=1..t1[n]);
%p s:=[数量(i),i=1..11)];
%t序列={};总和=0;触头=1;p=1;Do[p=NextPrime[p];prod*=p;总和+=p;如果[Divisible[prod,sum],AppendTo[seq,prod]],{50}];seq(*阿米拉姆·埃尔达尔,2020年11月2日*)
%t模[{nn=50,s,p},s=Accumulate[Prime[Range[nn]]];p=文件夹列表[时间,素数[范围[nn]]];选择[Thread[{p,s}],Divisible[#[1]],#[2]]&]][[All,1]](*_哈维·p·戴尔,2022年6月7日*)
%A002110和A036844的Y交点。
%Y参考A051838,A116536。
%K简单,无
%O 1,1号机组
%A_Enoch Haga,2009年4月16日
%E由N.J.A.Sloane于2011年10月2日更正(所有术语均错误)。