OFFSET
1,1
MATHEMATICA
Join[{3}, Total /@ Partition[Select[Range[200], PrimePowerQ], 2, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jul 20 2019
STATUS
approved