OFFSET
1,1
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
s={}; Do[i=1; Until[DivisorSigma[0, i]>=2n, i++]; AppendTo[s, i], {n, 45}]; s (* James C. McMahon, Sep 24 2024 *)
PROG
(Python)
from sympy import divisors
def a(n):
m = 4*n - 2
while len(divisors(m)) < 2*n: m += 1
return m
print([a(n) for n in range(1, 46)]) # Michael S. Branicky, Feb 06 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Apr 16 2006
STATUS
approved