|
COMMENTS
|
Indices of initial addends (summands) are 1343, 184557, 254101, 662222, 1108908, 1946623, 3616497, 3700883, 6114024, 12508273, 14539139, 65654476, 67568267, 80729196.
Initial addends (summands) are 11083, 2522057, 3560329, 9961421, 17293891, 31531301, 60972697, 62488883, 106504039, 227412803, 266654879, 1308934661, 1349136511, 1627087549.
Indices of initial factors are 10, 44, 47, 63, 73, 87, 103, 104, 123, 151, 157, 248, 250, 264.
Initial factors are 29, 193, 211, 307, 367, 449, 563, 569, 677, 877, 919, 1571, 1583, 1693.
|
|
PROG
|
(PARI) list(lim)={
my(v=List(), p, q, p1, q1, r1, t);
t=nextprime(lim^(1/3));
while(t*precprime(t-1)*precprime(precprime(t-1)-1)<lim, t=nextprime(t+1));
p=2; q=3;
forprime(r=5, precprime(t-1),
t=p*q*r;
q1=nextprime(t\3);
p1=precprime(q1-1);
r1=nextprime(q1+1);
while(p1+q1+r1<t, p1=q1; q1=r1; r1=nextprime(r1+1));
while(p1+q1+r1>t, r1=q1; q1=p1; p1=precprime(p1-1));
if(p1+q1+r1==t, listput(v, t));
p=q; q=r
);
Vec(v)
|