|
|
A214411
|
|
The maximum exponent k of 7 such that 7^k divides n.
|
|
19
|
|
|
0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,49
|
|
COMMENTS
|
7-adic valuation of n.
|
|
LINKS
|
|
|
FORMULA
|
If n == 0 (mod 7) then a(n) = 1 + a(n/7), otherwise a(n) = 0. - M. F. Hasler, Mar 05 2020
Asymptotic mean: lim_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 1/6. - Amiram Eldar, Jan 17 2022
a(n) = 7*Sum_{j=1..floor(log(n)/log(7))} frac(binomial(n, 7^j)*7^(j-1)/n). - Dario T. de Castro, Jul 12 2022
|
|
EXAMPLE
|
n=147 = 3*7*7 is divisible by 7^2, so a(147)=2.
|
|
MAPLE
|
|
|
MATHEMATICA
|
mek[n_]:=Module[{k=Ceiling[Log[7, n]]}, While[!Divisible[n, 7^k], k--]; k]; Array[ mek, 140] (* Harvey P. Dale, Mar 27 2017 *)
IntegerExponent[Range[150], 7] (* Suggested by Amiram Eldar *) (* Harvey P. Dale, Mar 07 2020 *)
|
|
PROG
|
(PARI) A=vector(1000); for(i=1, log(#A+.5)\log(7), forstep(j=7^i, #A, 7^i, A[j]++)); A \\ Charles R Greathouse IV, Jul 17 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|