%I #82 Feb 05 2023 07:43:50
%S 7,20,39,76,119,186,265,362,465,574,701,864,1057,1280,1509,1786,2093,
%T 2406,2755,3134,3531,3970,4427,4890,5377,5876,6489,7132,7805,8544,
%U 9301,10070,10893,11746,12605,13482,14365,15272,16209,17176,18185,19272,20365,21578,22857,24154,25457,26880,28309,29756
%N a(n) = sum of the first n primes whose distance to next prime is 4.
%H Sidney Cadot, <a href="/A360226/b360226.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = Sum_{k=1..n} A029710(k).
%F a(n) = A172112(n+1) - 3.
%t ii = {}; sum = 0; Do[If[Prime[n + 1] - Prime[n] == 4, sum = sum + Prime[n]; AppendTo[ii, sum]], {n, 1, 250}]; ii
%Y Cf. A007504, A029710, A086167, A086168, A172112.
%K nonn,easy
%O 1,1
%A _Artur Jasinski_, Feb 01 2023
|