%I #5 Jul 20 2019 08:05:37
%S 3,5,7,9,12,15,17,20,24,29,33,36,42,48,52,56,60,63,69,78,84,90,96,102,
%T 112,120,125,131,138,144,152,160,164,172,186,198,204,210,216,222,234,
%U 246,252,255,259,268,276,288,300,308,320,330,336,342,352,360,372,384,390,396
%N Numbers that are the sum of two successive prime powers.
%F a(n) = A000961(n) + A000961(n+1).
%t Join[{3}, Total /@ Partition[Select[Range[200], PrimePowerQ], 2, 1]]
%Y Cf. A000961, A001043, A024918, A057820.
%K nonn
%O 1,1
%A _Ilya Gutkovskiy_, Jul 20 2019