OFFSET
1,1
COMMENTS
The product of distinct prime divisors of (2^n)*m*(2^n-m) is also called the radical of that number: rad((2^n)*m*(2^n-m)).
For numbers m see A143700.
MATHEMATICA
aa = {1}; bb = {1}; rr = {2}; Do[logmax = 0; k = 2^x; w = Floor[(k - 1)/2]; Do[m = FactorInteger[n (k - n)]; rad = 1; Do[rad = rad m[[s]][[1]], {s, 1, Length[m]}]; log = Log[k]/Log[rad]; If[log > logmax, bmin = k - n; amax = n; logmax = log; r = rad], {n, 1, w, 2}]; Print[{x, amax}]; AppendTo[aa, amax]; AppendTo[bb, bmin]; AppendTo[rr, 2*r]; AppendTo[a, {x, logmax}], {x, 2, 15}]; rr (* Artur Jasinski with assistance of M. F. Hasler *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Artur Jasinski, Nov 10 2008
EXTENSIONS
Name changed and a(1) added by Jinyuan Wang, Aug 11 2020
STATUS
approved