OFFSET
1,1
LINKS
Winston de Greef, Table of n, a(n) for n = 1..10000
N. J. A. Sloane, Transforms
FORMULA
a(n) = Sum_{d|n} A007427(n/d) * prime(d).
MAPLE
a:= (proc(p) proc(n) uses numtheory;
add(p(d)*mobius(n/d), d=divisors(n))
end end@@2)(ithprime):
seq(a(n), n=1..100); # Alois P. Heinz, Mar 23 2023
MATHEMATICA
PROG
(PARI) A007427(n) = if( n<1, 0, direuler(p=2, n, (1 - 'x)^2)[n]) \\ from Michael Somos, Nov 15 2002
CROSSREFS
KEYWORD
sign,look
AUTHOR
Ilya Gutkovskiy, Mar 21 2023
STATUS
approved