OFFSET
1,3
FORMULA
PROG
(PARI) KP(p, q) = kronecker(p, q);
T(n, k) = my(p=prime(n), q=prime(k)); KP(p, q) * KP(q, p);
a(n) = vecsum(vector(n, k, T(n, k))); \\ Michel Marcus, May 30 2024
CROSSREFS
KEYWORD
sign
AUTHOR
Peter Luschny, May 28 2024
STATUS
approved