OFFSET
0,7
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = A056624(n!).
MATHEMATICA
f[p_, e_] := 2^(1 - Mod[e, 2]); a[n_] := Times @@ f @@@ FactorInteger[n!]; Array[a, 100, 0]
PROG
(PARI) a(n) = vecprod(apply(x -> 1 << (1 - x%2), factor(n!)[, 2]));
(Python)
from collections import Counter
from sympy import factorint
def A375187(n): return 1<<sum(e&1^1 for e in sum((Counter(factorint(m)) for m in range(2, n+1)), start=Counter()).values()) # Chai Wah Wu, Aug 03 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Aug 03 2024
STATUS
approved