|
| |
|
|
A152470
|
|
Largest of three consecutive primes whose sum is a prime.
|
|
4
|
|
|
|
11, 13, 17, 23, 29, 31, 37, 41, 47, 61, 71, 73, 79, 89, 97, 107, 127, 151, 157, 167, 173, 211, 227, 239, 281, 293, 307, 311, 317, 349, 353, 359, 389, 401, 419, 421, 439, 461, 463, 479, 487, 503, 509, 523, 563, 631, 647, 661, 673, 677, 719, 733, 757, 761, 769
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..55.
|
|
|
MAPLE
|
t0:=[];
t1:=[];
t2:=[];
t3:=[];
for i from 1 to 1000 do
t3:=ithprime(i)+ithprime(i+1)+ithprime(i+2);
if isprime(t3) then
t0:=[op(t0), i];
t1:=[op(t1), ithprime(i)];
t2:=[op(t2), ithprime(i+1)];
t3:=[op(t2), ithprime(i+2)];
fi;
od:
t3;
|
|
|
MATHEMATICA
|
lst={}; Do[p0=Prime[n]; p1=Prime[n+1]; p2=Prime[n+2]; If[PrimeQ[p0+p1+p2], AppendTo[lst, p2]], {n, 6!}]; lst
|
|
|
CROSSREFS
|
Cf. A073681, A072225, A152468, A152469.
Sequence in context: A120168 A087681 A137669 * A191023 A078861 A106891
Adjacent sequences: A152467 A152468 A152469 * A152471 A152472 A152473
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Vladimir Joseph Stephan Orlovsky, Dec 05 2008
|
|
|
STATUS
|
approved
|
| |
|
|
