OFFSET
1,2
COMMENTS
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]
PROG
(PARI) ispp1(n) = isprimepower(n) || (n==1); \\ A000961
lista(nn) = {my(s=0); for (n=1, nn, if (ispp1(n), s+= n; print1(s, ", ")); ); } \\ Michel Marcus, Mar 26 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Den Roussel (DenRoussel(AT)webtv.net)
EXTENSIONS
Offset 1 from Michel Marcus, Mar 26 2020
STATUS
approved