|
Search: id:A156785
|
|
| |
|
| 401, 7187, 39229, 128257, 149099, 216179, 347041, 585889, 767831, 3574721, 5171951
(list; graph; listen)
|
|
|
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 this_sequence A097742 A115244 A031518
Adjacent sequences: A156782 A156783 A156784 this_sequence A156786 A156787 A156788
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Vladimir Orlovsky (4vladimir(AT)gmail.com), Feb 15 2009
|
|
|
Search completed in 0.002 seconds
|
