A166034 Primes which are equal to the sum of three consecutive primes minus 2.
13, 29, 47, 107, 157, 197, 233, 317, 347, 563, 587, 631, 659, 677, 769, 787, 827, 839, 881, 929, 983, 1013, 1031, 1097, 1117, 1283, 1301, 1531, 1583, 1609, 1733, 1777, 1847, 1889, 1913, 2099, 2153, 2213, 2267, 2477, 2969, 3083, 3119, 3137, 3191, 3217
Offset: 1
Keywords
Examples
a(1)=3+5+7-2=13; a(2)=7+11+13-2=29; a(3)=13+17+19-2=47.
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Table[Sum[Prime[k], {k, n , n + 2}] - 2, {n, 1, 100}], PrimeQ] (* G. C. Greubel, Apr 24 2016 *) Select[Total/@Partition[Prime[Range[300]],3,1]-2,PrimeQ] (* Harvey P. Dale, Dec 31 2018 *)
Extensions
1997 removed and 2267 added by R. J. Mathar, Oct 08 2009
Comments