|
%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
|
