A131904 Smallest positive integer k with the same number of divisors as the n-th integer for which such a k exists.

2, 2, 2, 6, 4, 6, 2, 2, 6, 6, 2, 12, 2, 12, 6, 6, 2, 4, 6, 6, 12, 2, 24, 2, 12, 6, 6, 6, 2, 6, 6, 24, 2, 24, 2, 12, 12, 6, 2, 4, 12, 6, 12, 2, 24, 6, 24, 6, 6, 2, 2, 6, 12, 6, 24, 2, 12, 6, 24, 2, 60, 2, 6, 12, 12, 6, 24, 2, 48, 16, 6, 2, 60, 6, 6, 6, 24, 2

Offset

1,1

Links

Table of n, a(n) for n=1..78.

Formula

a(n)=min(k>0, k has the same number of divisors as A131903(n))

Example

a(4)=6 because A131903(4)=8, which has four divisors, and 6 is the least positive integer with four divisors

Mathematica

Clear[tmp]; Function[n, If[Head[ #1] === tmp, #1 = n; Unevaluated[Sequence[]], # ] & [tmp[DivisorSigma[0, n]]]] /@ Range[64]

Prog

(PARI) lista(nn) = {for (n=1, nn, my(nd = numdiv(n)); for (k=1, n-1, if (numdiv(k) == nd, print1(k, ", "); break); ); ); } \\ Michel Marcus, Apr 03 2015

Crossrefs

Cf. A069822, A131902-A131908.

Sequence in context: A227550 A286384 A099259 * A278264 A232114 A038074

Adjacent sequences: A131901 A131902 A131903 * A131905 A131906 A131907

Keyword

easy,nonn

Author

Peter Pein (petsie(AT)dordos.net), Jul 26 2007

Extensions

More terms from Michel Marcus, Apr 03 2015

Status

approved