|
%I #9 Aug 12 2023 01:16:39
%S 1,2,3,6,8,13,18,20,22,37,41,43,46,62,87,89,95,99,111,115,118,124,130,
%T 146,150,160,164,168,180,192,201,205,211,221,263,283,287,315,339,352,
%U 356,364,396,398,408,418,434,442,450,476,508,512,526,534,536,548,556,582
%N Numbers k such that the sum of the first k prime powers (not including 1) is a prime power.
%e 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 Position[Accumulate[Select[Range[4000], PrimePowerQ]], _?PrimePowerQ, Heads -> False] // Flatten
%Y Cf. A013916, A013919, A013930, A246655, A364797.
%K nonn
%O 1,2
%A _Ilya Gutkovskiy_, Aug 08 2023
|
