OFFSET
0,3
FORMULA
a(n) - n = a( [(n+2)/5] ).
MAPLE
A127428 := proc(n)
padic[ordp]((10*n)!, 5)-padic[ordp]((5*n)!, 5) ;
end proc:
seq(A127428(n), n=0..100) ; # R. J. Mathar, Mar 29 2017
PROG
(PARI) a(n) = valuation((10*n)!, 5) - valuation((5*n)!, 5); \\ Michel Marcus, Jul 29 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Apr 02 2007
EXTENSIONS
Typo in name corrected by Michel Marcus, Jul 29 2017
STATUS
approved