OFFSET
1,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A346148(n, n). - Sebastian Karlsson, Aug 22 2021
MATHEMATICA
a[1] = 1; a[n_] := Times @@ ((-1)^#[[2]] Binomial[n, #[[2]]] &/@ FactorInteger[n]); Table[a[n], {n, 45}]
PROG
(PARI) a(n) = my(f=factor(n)[, 2]); prod(k=1, #f, (-1)^f[k]*binomial(n, f[k])); \\ Michel Marcus, Feb 21 2021
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Feb 21 2021
STATUS
approved