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 A364796 #18 Jun 20 2025 08:09:52
%S A364796 1,2,3,6,8,13,18,20,22,37,41,43,46,62,87,89,95,99,111,115,118,124,130,
%T A364796 146,150,160,164,168,180,192,201,205,211,221,263,283,287,315,339,352,
%U A364796 356,364,396,398,408,418,434,442,450,476,508,512,526,534,536,548,556,582
%N A364796 Numbers k such that the sum of the first k prime powers (not including 1) is a prime power.
%H A364796 Amiram Eldar, <a href="/A364796/b364796.txt">Table of n, a(n) for n = 1..10000</a>
%e A364796 8 is a term because the sum of the first 8 prime powers 2 + 3 + 4 + 5 + 7 + 8 + 9 + 11 = 49 is a prime power.
%t A364796 Position[Accumulate[Select[Range[4000], PrimePowerQ]], _?PrimePowerQ, Heads -> False] // Flatten
%o A364796 (PARI) list(lim) = {my(k = 0, s = 0); for(p = 1, lim, if(isprimepower(p), k++; s += p; if(isprimepower(s), print1(k, ", "))));} \\ _Amiram Eldar_, Jun 20 2025
%Y A364796 Cf. A013916, A013919, A013930, A246655, A364797.
%K A364796 nonn
%O A364796 1,2
%A A364796 _Ilya Gutkovskiy_, Aug 08 2023