This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A024918 #13 Jun 22 2025 06:32:05
%S A024918 1,3,6,10,15,22,30,39,50,63,79,96,115,138,163,190,219,250,282,319,360,
%T A024918 403,450,499,552,611,672,736,803,874,947,1026,1107,1190,1279,1376,
%U A024918 1477,1580,1687,1796,1909,2030,2155,2282,2410,2541,2678,2817,2966,3117,3274,3437
%N A024918 Partial sums of the sequence of prime powers (A000961).
%C A024918 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]
%H A024918 Amiram Eldar, <a href="/A024918/b024918.txt">Table of n, a(n) for n = 1..10000</a>
%t A024918 FoldList[Plus, 1, Select[Range[150], PrimePowerQ]] (* _Amiram Eldar_, Jun 22 2025 *)
%o A024918 (PARI) ispp1(n) = isprimepower(n) || (n==1); \\ A000961
%o A024918 lista(nn) = {my(s=0); for (n=1, nn, if (ispp1(n), s+= n; print1(s, ", ")););} \\ _Michel Marcus_, Mar 26 2020
%Y A024918 Cf. A000961, A024923.
%K A024918 nonn
%O A024918 1,2
%A A024918 Den Roussel (DenRoussel(AT)webtv.net)
%E A024918 Offset 1 from _Michel Marcus_, Mar 26 2020