login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A135974 a(n) = the smallest integer m > n such that d(m) > d(n), where d(n) = number of divisors of n. 1
2, 4, 4, 6, 6, 12, 8, 12, 10, 12, 12, 24, 14, 16, 16, 18, 18, 24, 20, 24, 24, 24, 24, 36, 26, 28, 28, 30, 30, 36, 32, 36, 36, 36, 36, 48, 38, 40, 40, 48, 42, 48, 44, 48, 48, 48, 48, 60, 50, 54, 52, 54, 54, 60, 56, 60, 60, 60, 60, 120, 62, 63, 64, 66, 66, 72, 68, 70, 70 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
EXAMPLE
a(6)=12 because 6 has 4 divisors and the smallest integer > 6 which has more than 4 divisors is 12.
MAPLE
with(numtheory): a:=proc (n) local m: for m from n+1 while tau(m) <= tau(n) do end do: m end proc: seq(a(n), n=1..60); # Emeric Deutsch, Mar 21 2008
MATHEMATICA
a = {}; For[n = 1, n < 70, n++, i = n + 1; While[ ! DivisorSigma[0, i] > DivisorSigma[0, n], i++ ]; AppendTo[a, i]]; a (* Stefan Steinerberger, Mar 16 2008 *)
simd[n_]:=Module[{m=n+1, d=DivisorSigma[0, n]}, While[DivisorSigma[0, m]<=d, m++]; m]; Array[simd, 70] (* Harvey P. Dale, Oct 03 2021 *)
CROSSREFS
Sequence in context: A226951 A251557 A231901 * A153494 A352749 A205404
KEYWORD
nonn
AUTHOR
Leroy Quet, Mar 02 2008
EXTENSIONS
More terms from Stefan Steinerberger, Mar 16 2008
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 19 07:04 EDT 2024. Contains 370953 sequences. (Running on oeis4.)