OFFSET
1,8
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
MATHEMATICA
f[n_] := 2^Floor[Log2[n + 1]] - 1; a[n_] := f[Max[FactorInteger[n][[;; , 2]]]]; a[1] = 0; Array[a, 100]
PROG
(PARI) s(n) = 2^exponent(n+1) - 1;
a(n) = if(n>1, s(vecmax(factor(n)[, 2])), 0);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, May 07 2024
STATUS
approved