OFFSET
1,2
COMMENTS
The subsequence of primes begins: 2, 3, 5, 199, 4261, 493184761.
The subsequence of perfect powers begins: 1, 8, 25, 49.
FORMULA
a(n) = Sum_{i=1..n} A000992(i).
EXAMPLE
A000992 starts with 1, 1, 1, 2, 3, ... giving partial sums 1, 2, 3, 5, 8 ...
MAPLE
b:= proc(n) option remember; `if`(n=1, 1,
add(b(j)*b(n-j), j=1..n/2))
end:
a:= proc(n) option remember; `if`(n<1, 0, b(n)+a(n-1)) end:
seq(a(n), n=1..42); # Alois P. Heinz, Nov 04 2024
PROG
(PARI) lista(nn) = for (k=1, nn, print1(vecsum(A000992_list(k)), ", ")); \\ Michel Marcus, Feb 16 2015
CROSSREFS
KEYWORD
nonn,easy,changed
AUTHOR
Jonathan Vos Post, Jan 01 2011
STATUS
approved