OFFSET
0,5
COMMENTS
a(n)=0 for n={0,1,3,7,11,13,14,18,20}.
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
EXAMPLE
a(20) = 0 because 20! = 2432902008176640000 = ((2^18)*(3^8)*(5^4)*(7^2)*(11^1)*(13^1)*(17^1)*(19^1)) and 18-(8+4+2+1+1+1+1) = 0.
MAPLE
f:= proc(n) local t, p, k;
p:= 2: t:= add(floor(n/2^k), k=1..ilog2(n)):
do
p:= nextprime(p);
if n < p then return t fi;
t:= t - add(floor(n/p^k), k=1..ilog[p](n))
od
end proc:
map(f, [$0..100]); # Robert Israel, Nov 10 2024
MATHEMATICA
Table[2*IntegerExponent[m!, 2]-Total[Last/@FactorInteger[m! ]], {m, 0, 130}]
CROSSREFS
KEYWORD
sign,changed
AUTHOR
Zak Seidov, May 08 2010
STATUS
approved