login
A377634
a(n) is the smallest k such that tau(k*2^n - 1) is equal to 2^n where tau = A000005.
2
2, 4, 17, 130, 1283, 6889, 40037, 638521, 10126943, 186814849, 2092495862, 8167862431, 317808279653, 19868058417139, 372463979178257, 8397590340722566, 247135209858703658, 5936944176786966589, 461253291943122843287, 14056815667499681190676, 84041646512308648720838, 12266961234721756656121669
OFFSET
1,1
LINKS
FORMULA
a(n)*2^n - 1 >= A360438(n). - Daniel Suteu, Jan 07 2025
EXAMPLE
a(1) = 2 because tau(2*2^1 - 1) = tau(4 - 1) = tau(3) = 2 = 2^1;
a(2) = 4 because tau(4*2^2 - 1) = tau(16 - 1) = tau(15) = 4 = 2^2.
MATHEMATICA
a[n_]:=Module[{k=1}, While[DivisorSigma[0, k*2^n-1]!=2^n, k++]; k]; Array[a, 8] (* Stefano Spezia, Dec 29 2024 *)
PROG
(PARI) a(n) = my(k=1); while (numdiv(k*2^n - 1) != 2^n, k++); k; \\ Michel Marcus, Dec 28 2024
CROSSREFS
Sequence in context: A347724 A009323 A307125 * A247260 A048872 A063800
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(10) from Michel Marcus, Dec 28 2024
a(4) = 17 removed by Vincenzo Librandi, Dec 31 2024
a(5) = 1283 from Vincenzo Librandi, Dec 31 2024
a(11) from Daniel Suteu, Jan 07 2025
a(12)-a(15) from Daniel Suteu, May 18 2026
More terms from David A. Corneth, May 22 2026
STATUS
approved