login
Sums of successive sums of successive sums of successive sums of successive primes.
4

%I #14 Oct 31 2023 18:43:17

%S 83,122,168,216,264,316,378,446,514,582,644,700,766,846,924,994,1062,

%T 1126,1188,1258,1340,1434,1528,1602,1656,1704,1764,1860,1984,2094,

%U 2178,2260,2348,2432,2514,2598,2682,2766,2848,2932,3018,3090,3152,3242,3378

%N Sums of successive sums of successive sums of successive sums of successive primes.

%C The first term is always odd and may be prime. The first terms of more and more successions produce A007443.

%H Seiichi Manyama, <a href="/A096279/b096279.txt">Table of n, a(n) for n = 1..10000</a>

%e 2 3 5 7 11 successive primes

%e 5 8 12 18 sums of successive primes

%e 13 20 30 sums of successive sums of successive primes

%e 33 50 sums of successive sums of successive sums of successive primes

%e 83 sums of successive sums of successive sums of successive sums of successive primes

%t Nest[ListConvolve[{1,1},#]&,Prime[Range[100]],4] (* _Paolo Xausa_, Oct 31 2023 *)

%o (PARI) \\ Iterated successive sums of successive sums... of successive primes.

%o \\ Input number of terms n and the order m. m=0 yields the primes.

%o sucsums(n, m) = { my(a, b, i, j, k); a = primes(n+m); b = vector(#a); for(i=1, m, for(j=1, n+m-i, b[j] = a[j]+ a[j+1]; ); a=b; ); for(k=1, n, print1(a[k], ", "); ) }

%Y Cf. A000040, A001043, A096277, A096278.

%K easy,nonn

%O 1,1

%A _Cino Hilliard_, Jun 22 2004