A137518 a(1)=2. For n>=2, a(n) = smallest integer > a(n-1) that has the same number of divisors as n has.

2, 3, 5, 9, 11, 14, 17, 21, 25, 26, 29, 32, 37, 38, 39, 81, 83, 92, 97, 98, 106, 111, 113, 114, 121, 122, 123, 124, 127, 128, 131, 147, 155, 158, 159, 196, 197, 201, 202, 222, 223, 230, 233, 236, 242, 247, 251, 272, 289, 292, 295, 316, 317, 318, 319, 322, 323

Offset

1,1

Comments

Starting the sequence at a(1)=1 instead would lead to a(n) = n for all positive integers n.

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

a = {2}; Do[i = a[[ -1]] + 1; While[ ! Length[Divisors[i]] == Length[Divisors[n]], i++ ]; AppendTo[a, i], {n, 2, 80}]; a (* Stefan Steinerberger, Apr 26 2008 *)
nxt[{a_, n_}]:=Module[{k=a+1, div=DivisorSigma[0, n+1]}, While[div != DivisorSigma[ 0, k], k++]; {k, n+1}]; Transpose[NestList[nxt, {2, 1}, 60]] [[1]] (* Harvey P. Dale, May 28 2014 *)

Crossrefs

Sequence in context: A215779 A140329 A163292 * A137509 A350916 A014109

Adjacent sequences: A137515 A137516 A137517 * A137519 A137520 A137521

Keyword

nonn

Author

Leroy Quet, Apr 24 2008

Extensions

More terms from Stefan Steinerberger, Apr 26 2008

Status

approved