login
Irregular triangle read by rows in which row n lists the partial sums of prime numbers between 2^n+1 and 2^(n+1).
4

%I #15 Dec 26 2020 12:34:59

%S 2,3,5,12,11,24,17,36,59,88,119,37,78,121,168,221,280,341,67,138,211,

%T 290,373,462,559,660,763,870,979,1092,1219,131,268,407,556,707,864,

%U 1027,1194,1367,1546,1727,1918,2111,2308,2507,2718,2941,3168,3397,3630,3869,4110,4361

%N Irregular triangle read by rows in which row n lists the partial sums of prime numbers between 2^n+1 and 2^(n+1).

%H Olivier Gérard, <a href="/A293696/b293696.txt">Table of n, a(n) for n = 0..6541</a>

%e The triangle begins

%e .

%e 2

%e 3

%e 5,12

%e 11,24

%e 17,36,59,88,119

%e 37,78,121,168,221,280,341

%e 67,138,211,290,373,462,559,660,763,870,979,1092,1219

%t Flatten@Table[

%t Rest@FoldList[Plus, 0,

%t Table[Prime[i], {i, PrimePi[2^(n)] + 1, PrimePi[2^(n + 1)]}]], {n,

%t 0, 8}]

%t Table[Accumulate[Prime[Range[PrimePi[2^n]+1,PrimePi[2^(n+1)]]]],{n,0,10}] // Flatten (* _Harvey P. Dale_, Dec 26 2020 *)

%Y Cf. A000040, A036378 (length of rows), A293697 (sequence of last item of each row).

%K nonn,tabf

%O 0,1

%A _Olivier Gérard_, Oct 15 2017