A211170 Primes that are sum of both three and five consecutive primes.
83, 199, 311, 941, 1151, 1381, 2357, 3121, 4337, 4363, 4957, 5059, 7039, 8069, 8117, 8161, 8389, 8627, 8819, 8971, 9011, 9349, 10211, 10253, 13127, 14813, 16249, 19207, 19717, 21377, 23143, 24329, 32983, 34807, 38113, 39623, 41141, 44279, 45061, 45979, 58403
Offset: 1
Keywords
Examples
a(1) = 83 = A034962(6) = 23 + 29 + 31 = A034965(3) = 11 + 13 + 17 + 19 + 23.
Links
- Donovan Johnson, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Module[{prs=Prime[Range[3000]],pr3,pr5},pr3=Select[Total/@Partition[ prs, 3, 1], PrimeQ];pr5=Select[Total/@Partition[prs,5,1],PrimeQ];Intersection[ pr3,pr5]] (* Harvey P. Dale, Oct 24 2016 *)
Comments