|
|
A022333
|
|
Exponent of 5 (value of j) in n-th number of form 2^i*5^j.
|
|
3
|
|
|
0, 0, 0, 1, 0, 1, 0, 1, 2, 0, 1, 2, 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2, 3, 0, 4, 1, 2, 3, 0, 4, 1, 2, 3, 0, 4, 1, 5, 2, 3, 0, 4, 1, 5, 2, 3, 0, 4, 1, 5, 2, 6, 3, 0, 4, 1, 5, 2, 6, 3, 0, 4, 1, 5, 2, 6, 3, 0, 7, 4, 1, 5, 2, 6, 3, 0, 7, 4, 1, 5, 2, 6, 3, 0, 7, 4, 1, 8, 5, 2, 6, 3, 0, 7, 4, 1, 8, 5, 2, 6, 3, 0, 7, 4, 1, 8, 5, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,9
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
end proc:
|
|
MATHEMATICA
|
s = {}; m = 12; Do[n = 5^k; While[n <= 5^m, AppendTo[s, n]; n *= 2], {k, 0, m}]; IntegerExponent[#, 5] & /@ Union[s]
|
|
PROG
|
(PARI) lista(nn) = {vec = vector(nn, i , i); subset = select(n->(n/(2^valuation(n, 2)*5^valuation(n, 5)) == 1), vec); for (i = 1, #subset, print1(valuation(subset[i], 5), ", "); ); } \\ Michel Marcus, Oct 01 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|