A165982 Primes that are 4 plus the sum of three consecutive primes.
19, 53, 101, 113, 163, 191, 227, 239, 353, 443, 461, 491, 523, 569, 593, 683, 821, 887, 1019, 1103, 1123, 1289, 1307, 1319, 1481, 1693, 1721, 1783, 1811, 1871, 1997, 2203, 2237, 2273, 2333, 2459, 2741, 2789, 3001, 3023, 3089, 3251, 3313, 3373, 3407, 3491
Offset: 1
Keywords
Examples
A000040(8) = 19 = 4 + A034961(2). A000040(16) = 53 = 4 + A034961(6). A000040(26) = 101 = 4 + A034961(10).
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Total[#]+4&/@Partition[Prime[Range[200]],3,1],PrimeQ] (* Harvey P. Dale, Jan 12 2011 *)
Extensions
1721 inserted by R. J. Mathar, Oct 05 2009
Comments