|
| |
| |
|
|
|
401, 7187, 39229, 128257, 149099, 216179, 347041, 585889, 767831, 3574721, 5171951
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| q=9; lst={}; Do[p0=Prime[n+0]; p1=Prime[n+1]; p2=Prime[n+2]; p3=Prime[n+3]; p4=Prime[n+4]; If[PrimeQ[p0+p1+p2]&&PrimeQ[p2+p3+p4], AppendTo[lst, p2]], {n, q!}]; a2=lst; lst={}; Do[p0=Prime[n+0]; p1=Prime[n+1]; p2=Prime[n+2]; p3=Prime[n+3]; p4=Prime[n+4]; p5=Prime[n+5]; p6=Prime[n+6]; p7=Prime[n+7]; p8=Prime[n+8]; If[PrimeQ[p0+p1+p2+p3+p4]&&PrimeQ[p4+p5+p6+p7+p8], AppendTo[lst, p4]], {n, q!}]; a4=lst; lst={}; Do[p0=Prime[n+0]; p1=Prime[n+1]; p2=Prime[n+2]; p3=Prime[n+3]; p4=Prime[n+4]; p5=Prime[n+5]; p6=Prime[n+6]; p7=Prime[n+7]; p8=Prime[n+8]; p9=Prime[n+9]; p10=Prime[n+10]; p11=Prime[n+11]; p12=Prime[n+12]; If[PrimeQ[p0+p1+p2+p3+p4+p5+p6]&&PrimeQ[p6+p7+p8+p9+p10+p11+p12], AppendTo[lst, p6]], {n, q!}]; a6=lst; Intersection[a2, a4, a6]
|
|
|
CROSSREFS
| Cf. A156781, A156782, A156783, A156784
Sequence in context: A031718 A031608 A102324 * A179293 A097742 A115244
Adjacent sequences: A156782 A156783 A156784 * A156786 A156787 A156788
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Feb 15 2009
|
| |
|
|
