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