|
|
A138397
|
|
Penta-Primes. Prime Numbers n as a Sum of 5 consecutive prime numbers (four twin primes and single prime number in between) are primes.
|
|
1
|
|
|
181, 331, 1381, 6481, 6551, 8069, 10499, 11633, 17669, 17851, 27551, 44249, 45137, 50273, 51437, 68501, 73061, 85999, 90073, 90631, 112997, 115249, 142799, 154303, 186757, 196169, 237019, 238397, 247693, 250027, 266239, 278227, 291899, 337097, 344263, 354677
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
{29, 31} {37} {41, 43} Sum = 181
|
|
MATHEMATICA
|
a={}; Do[p0=Prime[n]; a1=Prime[n-2]; a2=Prime[n-1]; b1=Prime[n+1]; b2=Prime[n+2]; sp=a1+a2+p0+b1+b2; If[PrimeQ[sp]&&a2-a1==2&&b2-b1==2, AppendTo[a, sp]], {n, 3, 10^3}]; a
Select[Total/@Select[Partition[Prime[Range[1000]], 5, 1], #[[2]]-#[[1]]== #[[5]] -#[[4]]==2&], PrimeQ] (* Harvey P. Dale, Aug 26 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|