OFFSET
1
LINKS
FORMULA
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = Sum_{k>=2} 1/(zeta(k)*(2^k-1)) = 0.44541445377638761933... . - Amiram Eldar, Jun 17 2024
MATHEMATICA
a[n_] := If[IntegerExponent[n, 2] == Max[FactorInteger[n][[;; , 2]]], 1, 0]; a[1] = 1; Array[a, 100] (* Amiram Eldar, Jun 17 2024 *)
PROG
(PARI) A373252(n) = (1==n || (vecmax(factor(n)[, 2]) == valuation(n, 2))); \\ (after function "is" in A360015) - Antti Karttunen, Jun 13 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 13 2024
STATUS
approved