OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Join[{3}, Total /@ Partition[Select[Range[200], PrimePowerQ], 2, 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jul 20 2019
STATUS
approved
