A373984 a(n) = A108951(n) - A373158(n), where A108951 is fully multiplicative and A373158 is fully additive with a(p) = p# for prime p, where x# is the primorial A034386(x).

1, 0, 0, 0, 0, 4, 0, 2, 24, 28, 0, 14, 0, 208, 144, 8, 0, 58, 0, 86, 1044, 2308, 0, 36, 840, 30028, 198, 626, 0, 322, 0, 22, 11544, 510508, 6060, 128, 0, 9699688, 150144, 204, 0, 2302, 0, 6926, 1038, 223092868, 0, 82, 43680, 1738, 2552544, 90086, 0, 412, 66960, 1464, 48498444, 6469693228, 0, 680, 0, 200560490128

Offset

1,6

Links

Antti Karttunen, Table of n, a(n) for n = 1..4096

Index entries for sequences related to primorial numbers

Prog

(PARI) A373984(n) = { my(f=factor(n), m=1, s=0); for(i=1, #f~, my(x=prod(i=1, primepi(f[i, 1]), prime(i))); s += f[i, 2]*x; m *= x^f[i, 2]); (m-s); };

Crossrefs

Cf. A002110, A034386, A108951, A373158, A373985.

Sequence in context: A318468 A346492 A145877 * A283572 A057075 A281653

Adjacent sequences: A373981 A373982 A373983 * A373985 A373986 A373987

Keyword

nonn

Author

Antti Karttunen, Jun 25 2024

Status

approved