login
Numbers that are the sum of two successive prime powers.
0

%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