login
Partial sums of the sequence of prime powers (A000961).
6

%I #7 Mar 26 2020 15:01:17

%S 1,3,6,10,15,22,30,39,50,63,79,96,115,138,163,190,219,250,282,319,360,

%T 403,450,499,552,611,672,736,803,874,947,1026,1107,1190,1279,1376,

%U 1477,1580,1687,1796,1909,2030,2155,2282,2410,2541,2678,2817

%N Partial sums of the sequence of prime powers (A000961).

%C The subsequence of prime partial sums of prime powers begins: 3, 79, 163, 499, 947, 1279, 5297. What is the smallest value which is a prime power p^k for k>1? [_Jonathan Vos Post_, Feb 11 2010]

%o (PARI) ispp1(n) = isprimepower(n) || (n==1); \\ A000961

%o lista(nn) = {my(s=0); for (n=1, nn, if (ispp1(n), s+= n; print1(s, ", ")););} \\ _Michel Marcus_, Mar 26 2020

%Y Cf. A000961, A024923.

%K nonn

%O 1,2

%A Den Roussel (DenRoussel(AT)webtv.net)

%E Offset 1 from _Michel Marcus_, Mar 26 2020