A005237 -id:A005237 - cp's OEIS frontend

A049111 Number of divisors of A005237(n).

2, 4, 4, 4, 4, 4, 4, 6, 4, 6, 4, 4, 4, 4, 6, 8, 6, 4, 4, 4, 8, 4, 4, 4, 6, 4, 6, 4, 8, 4, 4, 4, 4, 4, 4, 4, 8, 8, 6, 6, 6, 4, 8, 8, 4, 4, 4, 4, 6, 4, 8, 8, 8, 4, 6, 4, 4, 8, 8, 4, 4, 4, 4, 4, 6, 4, 4, 4, 4, 6, 4, 4, 6, 6, 8, 4, 4, 4, 8, 8, 8, 4, 4, 4, 4, 4, 6, 12, 8, 4, 4, 8, 4, 8, 4, 4, 8, 4, 12, 4, 6, 4, 8, 4

Offset: 1

Olivier Gérard

nonn

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A000005, A005237.

A000005 d(n) (also called tau(n) or sigma_0(n)), the number of divisors of n.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 4, 3, 4, 2, 6, 2, 4, 4, 5, 2, 6, 2, 6, 4, 4, 2, 8, 3, 4, 4, 6, 2, 8, 2, 6, 4, 4, 4, 9, 2, 4, 4, 8, 2, 8, 2, 6, 6, 4, 2, 10, 3, 6, 4, 6, 2, 8, 4, 8, 4, 4, 2, 12, 2, 4, 6, 7, 4, 8, 2, 6, 4, 8, 2, 12, 2, 4, 6, 6, 4, 8, 2, 10, 5, 4, 2, 12, 4, 4, 4, 8, 2, 12, 4, 6, 4, 4, 4, 12, 2, 6, 6, 9, 2, 8, 2, 8

Offset: 1

N. J. A. Sloane

If the canonical factorization of n into prime powers is Product p^e(p) then d(n) = Product (e(p) + 1). More generally, for k > 0, sigma_k(n) = Product_p ((p^((e(p)+1)*k))-1)/(p^k-1) is the sum of the k-th powers of the divisors of n.
Number of ways to write n as n = x*y, 1 <= x <= n, 1 <= y <= n. For number of unordered solutions to x*y=n, see A038548.
Note that d(n) is not the number of Pythagorean triangles with radius of the inscribed circle equal to n (that is A078644). For number of primitive Pythagorean triangles having inradius n, see A068068(n).
Number of factors in the factorization of the polynomial x^n-1 over the integers. - T. D. Noe, Apr 16 2003
Also equal to the number of partitions p of n such that all the parts have the same cardinality, i.e., max(p)=min(p). - Giovanni Resta, Feb 06 2006
Equals A127093 as an infinite lower triangular matrix * the harmonic series, [1/1, 1/2, 1/3, ...]. - Gary W. Adamson, May 10 2007
For odd n, this is the number of partitions of n into consecutive integers. Proof: For n = 1, clearly true. For n = 2k + 1, k >= 1, map each (necessarily odd) divisor to such a partition as follows: For 1 and n, map k + (k+1) and n, respectively. For any remaining divisor d <= sqrt(n), map (n/d - (d-1)/2) + ... + (n/d - 1) + (n/d) + (n/d + 1) + ... + (n/d + (d-1)/2) {i.e., n/d plus (d-1)/2 pairs each summing to 2n/d}. For any remaining divisor d > sqrt(n), map ((d-1)/2 - (n/d - 1)) + ... + ((d-1)/2 - 1) + (d-1)/2 + (d+1)/2 + ((d+1)/2 + 1) + ... + ((d+1)/2 + (n/d - 1)) {i.e., n/d pairs each summing to d}. As all such partitions must be of one of the above forms, the 1-to-1 correspondence and proof is complete. - Rick L. Shepherd, Apr 20 2008
Number of subgroups of the cyclic group of order n. - Benoit Jubin, Apr 29 2008
Equals row sums of triangle A143319. - Gary W. Adamson, Aug 07 2008
Equals row sums of triangle A159934, equivalent to generating a(n) by convolving A000005 prefaced with a 1; (1, 1, 2, 2, 3, 2, ...) with the INVERTi transform of A000005, (A159933): (1, 1,-1, 0, -1, 2, ...). Example: a(6) = 4 = (1, 1, 2, 2, 3, 2) dot (2, -1, 0, -1, 1, 1) = (2, -1, 0, -2, 3, 2) = 4. - Gary W. Adamson, Apr 26 2009
Number of times n appears in an n X n multiplication table. - Dominick Cancilla, Aug 02 2010
Number of k >= 0 such that (k^2 + k*n + k)/(k + 1) is an integer. - Juri-Stepan Gerasimov, Oct 25 2015
The only numbers k such that tau(k) >= k/2 are 1,2,3,4,6,8,12. - Michael De Vlieger, Dec 14 2016
a(n) is also the number of partitions of 2*n into equal parts, minus the number of partitions of 2*n into consecutive parts. - Omar E. Pol, May 03 2017
From Tomohiro Yamada, Oct 27 2020: (Start)
Let k(n) = log d(n)*log log n/(log 2 * log n), then lim sup k(n) = 1 (Hardy and Wright, Chapter 18, Theorem 317) and k(n) <= k(6983776800) = 1.537939... (the constant A280235) for every n (Nicolas and Robin, 1983).
There exist infinitely many n such that d(n) = d(n+1) (Heath-Brown, 1984). The number of such integers n <= x is at least c*x/(log log x)^3 (Hildebrand, 1987) but at most O(x/sqrt(log log x)) (Erdős, Carl Pomerance and Sárközy, 1987). (End)
Number of 2D grids of n congruent rectangles with two different side lengths, in a rectangle, modulo rotation (cf. A038548 for squares instead of rectangles). Also number of ways to arrange n identical objects in a rectangle (NOT modulo rotation, cf. A038548 for modulo rotation); cf. A007425 and A140773 for the 3D case. - Manfred Boergens, Jun 08 2021
The constant quoted above from Nicolas and Robin, 6983776800 = 2^5 * 3^3 * 5^2 * 7 * 11 * 13 * 17 * 19, appears arbitrary, but interestingly equals 2 * A095849(36). That second factor is highly composite and deeply composite. - Hal M. Switkay, Aug 08 2025

			G.f. = x + 2*x^2 + 2*x^3 + 3*x^4 + 2*x^5 + 4*x^6 + 2*x^7 + 4*x^8 + 3*x^9 + ...

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 840.
T. M. Apostol, Introduction to Analytic Number Theory, Springer-Verlag, 1976, page 38.
G. Chrystal, Algebra: An elementary text-book for the higher classes of secondary schools and for colleges, 6th ed, Chelsea Publishing Co., New York 1959 Part II, p. 345, Exercise XXI(16). MR0121327 (22 #12066)
G. H. Hardy, Ramanujan: twelve lectures on subjects suggested by his life and work, Cambridge, University Press, 1940, p. 55.
G. H. Hardy and E. M. Wright, revised by D. R. Heath-Brown and J. H. Silverman, An Introduction to the Theory of Numbers, 6th ed., Oxford Univ. Press, 2008.
K. Knopp, Theory and Application of Infinite Series, Blackie, London, 1951, p. 451.
D. S. Mitrinovic et al., Handbook of Number Theory, Kluwer, Chap. II. (For inequalities, etc.)
S. Ramanujan, Collected Papers, Ed. G. H. Hardy et al., Cambridge 1927; Chelsea, NY, 1962. Has many references to this sequence. - N. J. A. Sloane, Jun 02 2014
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
B. Spearman and K. S. Williams, Handbook of Estimates in the Theory of Numbers, Carleton Math. Lecture Note Series No. 14, 1975; see p. 2.1.
James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, page 285.
E. C. Titchmarsh, The Theory of Functions, Oxford, 1938, p. 160.
Terence Tao, Poincaré's Legacies, Part I, Amer. Math. Soc., 2009, see pp. 31ff for upper bounds on d(n).

Daniel Forgues, Table of n, a(n) for n = 1..100000 (first 10000 terms from N. J. A. Sloane)
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy, requires Flash plugin].
G. E. Andrews, Some debts I owe, Séminaire Lotharingien de Combinatoire, Paper B42a, Issue 42, 2000; see (7.1).
J. Bell, Lambert series in analytic number theory
R. Bellman and H. N. Shapiro, On a problem in additive number theory, Annals Math., 49 (1948), 333-340. [From _N. J. A. Sloane_, Mar 12 2009]
Henry Bottomley, Illustration of initial terms
D. M. Bressoud and M. V. Subbarao, On Uchimura's connection between partitions and the number of divisors, Can. Math. Bull. 27, 143-145 (1984). Zbl 0536.10013.
C. K. Caldwell, The Prime Glossary, Number of divisors
Imanuel Chen and Michael Z. Spivey, Integral Generalized Binomial Coefficients of Multiplicative Functions, Preprint 2015; Summer Research Paper 238, Univ. Puget Sound.
Jimmy Devillet and Gergely Kiss, Characterizations of biselective operations, arXiv:1806.02073 [math.RA], 2018.
P. Erdős and L. Mirsky, The distribution of values of the divisor function d(n), Proc. London Math. Soc. 2 (1952), pp. 257-271.
Paul Erdős, Carl Pomerance and András Sárközy, On locally repeated values of certain arithmetic functions, III, Proc. Amer. Math. Soc. 101 (1987), 1-7.
C. R. Fletcher, Rings of small order, Math. Gaz. vol. 64, p. 13, 1980.
Robbert Fokkink and Jan van Neerven, Problemen/UWC (in Dutch)
Daniele A. Gewurz and Francesca Merola, Sequences realized as Parker vectors ..., J. Integer Seqs., Vol. 6, 2003.
D. R. Heath-Brown, The divisor function at consecutive integers, Mathematika 31 (1984), 141-149.
Adolf Hildebrand, The divisor function at consecutive integers, Pacific J. Math. 129 (1987), 307-319.
J. J. Holt and J. W. Jones, Counting Divisors, Discovering Number Theory, Section 1.4.
P. A. MacMahon, Divisors of numbers and their continuations in the theory of partitions, Proc. London Math. Soc., 19 (1919), 75-113.
M. Maia and M. Mendez, On the arithmetic product of combinatorial species, arXiv:math/0503436 [math.CO], 2005.
R. G. Martinez, Jr., The Factor Zone, Number of Factors for 1 through 600.
Math Forum, Divisor Counting.
Mathematics Stack Exchange, A question on discrete Fourier Transform of some function
K. Matthews, Factorizing n and calculating phi(n), omega(n), d(n), sigma(n) and mu(n).
Mircea Merca, A new look on the generating function for the number of divisors, Journal of Number Theory, Volume 149, April 2015, Pages 57-69.
Mircea Merca, Combinatorial interpretations of a recent convolution for the number of divisors of a positive integer, Journal of Number Theory, Volume 160, March 2016, Pages 60-75, corollary 2.1.
J. L. Nicolas and G. Robin, Majorations Explicites Pour le Nombre de Diviseurs de N, Canadian Mathematical Bulletin, Volume 26, Issue 4, 01 December 1983, pp. 485-492.
Matthew Parker, The first 25 million terms (7-Zip compressed file).
Ed Pegg, Jr., Sequence Pictures, Math Games column, Dec 08 2003.
Ed Pegg, Jr., Sequence Pictures, Math Games column, Dec 08 2003. [Cached copy, with permission (pdf only)]
Omar E. Pol, Illustration of initial terms: figure 1, figure 2, figure 3, figure 4, figure 5, (2009), figure 6 (a, b, c), (2013)
S. Ramanujan, On The Number Of Divisors Of A Number.
H. B. Reiter, Counting Divisors.
W. Sierpiński, Number Of Divisors And Their Sum.
Terence Tao, Poincaré's Legacies: pages from year two of a mathematical blog, see page 59.
E. C. Titchmarsh, On a series of Lambert type, J. London Math. Soc., 13 (1938), 248-253.
Keisuke Uchimura, An identity for the divisor generating function arising from sorting theory, J. Combin. Theory Ser. A 31 (1981), no. 2, 131--135. MR0629588 (82k:05015)
Wang Zheng Bing, Robert Fokkink and Wan Fokkink, A Relation Between Partitions and the Number of Divisors, Am. Math. Monthly, 102 (Apr., 1995), no. 4, 345-347.
Eric Weisstein's World of Mathematics, Binomial Number, Dirichlet Series Generating Function, Divisor Function, and Moebius Transform.
Wikipedia, Table of divisors.
Wolfram Research, Divisors of first 50 numbers
Index entries for "core" sequences
Index entries for sequences computed from exponents in factorization of n

See A002183, A002182 for records. See A000203 for the sum-of-divisors function sigma(n).
For partial sums see A006218.
Cf. A007427 (Dirichlet Inverse), A001227, A001826, A001842, A005237, A005238, A006558, A006601, A019273, A027750, A034296, A039665, A049051, A049820, A051731, A061017, A066446, A091202, A091220, A106737, A115361, A127093, A129372, A129510, A143319, A156552, A159933, A159934, A163280, A183063, A237665, A263730.
Factorizations into given number of factors: writing n = x*y (A038548, unordered, A000005, ordered), n = x*y*z (A034836, unordered, A007425, ordered), n = w*x*y*z (A007426, ordered).
Cf. A000010, A095849.
Cf. A098198 (Dgf at s=2), A183030 (Dgf at s=3), A183031 (Dgf at s=3).

List([1..150],n->Tau(n)); # Muniru A Asiru, Mar 05 2019

divisors 1 = [1]
divisors n = (1:filter ((==0) . rem n)
               [2..n `div` 2]) ++ [n]
a = length . divisors
-- James Spahlinger, Oct 07 2012

a000005 = product . map (+ 1) . a124010_row  -- Reinhard Zumkeller, Jul 12 2013

function tau(n)
    i = 2; num = 1
    while i * i <= n
        if rem(n, i) == 0
            e = 0
            while rem(n, i) == 0
                e += 1
                n = div(n, i)
            end
            num *= e + 1
        end
        i += 1
    end
    return n > 1 ? num + num : num
end
println([tau(n) for n in 1:104])  # Peter Luschny, Sep 03 2023

[ NumberOfDivisors(n) : n in [1..100] ]; // Sergei Haller (sergei(AT)sergei-haller.de), Dec 21 2006

with(numtheory): A000005 := tau; [ seq(tau(n), n=1..100) ];

Table[DivisorSigma[0, n], {n, 100}] (* Enrique Pérez Herrero, Aug 27 2009 *)
CoefficientList[Series[(Log[1 - q] + QPolyGamma[1, q])/(q Log[q]), {q, 0, 100}], q] (* Vladimir Reshetnikov, Apr 23 2013 *)
a[ n_] := SeriesCoefficient[ (QPolyGamma[ 1, q] + Log[1 - q]) / Log[q], {q, 0, Abs@n}]; (* Michael Somos, Apr 25 2013 *)
a[ n_] := SeriesCoefficient[ q/(1 - q)^2 QHypergeometricPFQ[ {q, q}, {q^2, q^2}, q, q^2], {q, 0, Abs@n}]; (* Michael Somos, Mar 05 2014 *)
a[n_] := SeriesCoefficient[q/(1 - q) QHypergeometricPFQ[{q, q}, {q^2}, q, q], {q, 0, Abs@n}] (* Mats Granvik, Apr 15 2015 *)
With[{M=500},CoefficientList[Series[(2x)/(1-x)-Sum[x^k (1-2x^k)/(1-x^k),{k,M}],{x,0,M}],x]] (* Mamuka Jibladze, Aug 31 2018 *)

numlib::tau (n)$ n=1..90 // Zerinvary Lajos, May 13 2008

{a(n) = if( n==0, 0, numdiv(n))}; /* Michael Somos, Apr 27 2003 */

{a(n) = n=abs(n); if( n<1, 0, direuler( p=2, n, 1 / (1 - X)^2)[n])}; /* Michael Somos, Apr 27 2003 */

{a(n)=polcoeff(sum(m=1, n+1, sumdiv(m, d, (-log(1-x^(m/d) +x*O(x^n) ))^d/d!)), n)} \\ Paul D. Hanna, Aug 21 2014

from sympy import divisor_count
for n in range(1, 20): print(divisor_count(n), end=', ') # Stefano Spezia, Nov 05 2018

[sigma(n, 0) for n in range(1, 105)]  # Zerinvary Lajos, Jun 04 2009

If n is written as 2^z*3^y*5^x*7^w*11^v*... then a(n)=(z+1)*(y+1)*(x+1)*(w+1)*(v+1)*...
a(n) = 2 iff n is prime.
G.f.: Sum_{n >= 1} a(n) x^n = Sum_{k>0} x^k/(1-x^k). This is usually called THE Lambert series (see Knopp, Titchmarsh).
a(n) = A083888(n) + A083889(n) + A083890(n) + A083891(n) + A083892(n) + A083893(n) + A083894(n) + A083895(n) + A083896(n).
a(n) = A083910(n) + A083911(n) + A083912(n) + A083913(n) + A083914(n) + A083915(n) + A083916(n) + A083917(n) + A083918(n) + A083919(n).
Multiplicative with a(p^e) = e+1. - David W. Wilson, Aug 01 2001
a(n) <= 2 sqrt(n) [see Mitrinovich, p. 39, also A046522].
a(n) is odd iff n is a square. - Reinhard Zumkeller, Dec 29 2001
a(n) = Sum_{k=1..n} f(k, n) where f(k, n) = 1 if k divides n, 0 otherwise (Mobius transform of A000012). Equivalently, f(k, n) = (1/k)*Sum_{l=1..k} z(k, l)^n with z(k, l) the k-th roots of unity. - Ralf Stephan, Dec 25 2002
G.f.: Sum_{k>0} ((-1)^(k+1) * x^(k * (k + 1)/2) / ((1 - x^k) * Product_{i=1..k} (1 - x^i))). - Michael Somos, Apr 27 2003
a(n) = n - Sum_{k=1..n} (ceiling(n/k) - floor(n/k)). - Benoit Cloitre, May 11 2003
a(n) = A032741(n) + 1 = A062011(n)/2 = A054519(n) - A054519(n-1) = A006218(n) - A006218(n-1) = 1 + Sum_{k=1..n-1} A051950(k+1). - Ralf Stephan, Mar 26 2004
G.f.: Sum_{k>0} x^(k^2)*(1+x^k)/(1-x^k). Dirichlet g.f.: zeta(s)^2. - Michael Somos, Apr 05 2003
Sequence = M*V where M = A129372 as an infinite lower triangular matrix and V = ruler sequence A001511 as a vector: [1, 2, 1, 3, 1, 2, 1, 4, ...]. - Gary W. Adamson, Apr 15 2007
Sequence = M*V, where M = A115361 is an infinite lower triangular matrix and V = A001227, the number of odd divisors of n, is a vector: [1, 1, 2, 1, 2, 2, 2, ...]. - Gary W. Adamson, Apr 15 2007
Row sums of triangle A051731. - Gary W. Adamson, Nov 02 2007
Sum_{n>0} a(n)/(n^n) = Sum_{n>0, m>0} 1/(n*m). - Gerald McGarvey, Dec 15 2007
Logarithmic g.f.: Sum_{n>=1} a(n)/n * x^n = -log( Product_{n>=1} (1-x^n)^(1/n) ). - Joerg Arndt, May 03 2008
a(n) = Sum_{k=1..n} (floor(n/k) - floor((n-1)/k)). - Enrique Pérez Herrero, Aug 27 2009
a(s) = 2^omega(s), if s > 1 is a squarefree number (A005117) and omega(s) is: A001221. - Enrique Pérez Herrero, Sep 08 2009
a(n) = A048691(n) - A055205(n). - Reinhard Zumkeller, Dec 08 2009
For n > 1, a(n) = 2 + Sum_{k=2..n-1} floor((cos(Pi*n/k))^2). And floor((cos(Pi*n/k))^2) = floor(1/4 * e^(-(2*i*Pi*n)/k) + 1/4 * e^((2*i*Pi*n)/k) + 1/2). - Eric Desbiaux, Mar 09 2010, corrected Apr 16 2011
a(n) = 1 + Sum_{k=1..n} (floor(2^n/(2^k-1)) mod 2) for every n. - Fabio Civolani (civox(AT)tiscali.it), Mar 12 2010
From Vladimir Shevelev, May 22 2010: (Start)
(Sum_{d|n} a(d))^2 = Sum_{d|n} a(d)^3 (J. Liouville).
Sum_{d|n} A008836(d)*a(d)^2 = A008836(n)*Sum_{d|n} a(d). (End)
a(n) = sigma_0(n) = 1 + Sum_{m>=2} Sum_{r>=1} (1/m^(r+1))*Sum_{j=1..m-1} Sum_{k=0..m^(r+1)-1} e^(2*k*Pi*i*(n+(m-j)*m^r)/m^(r+1)). - A. Neves, Oct 04 2010
a(n) = 2*A038548(n) - A010052(n). - Reinhard Zumkeller, Mar 08 2013
Sum_{n>=1} a(n)*q^n = (log(1-q) + psi_q(1)) / log(q), where psi_q(z) is the q-digamma function. - Vladimir Reshetnikov, Apr 23 2013
a(n) = Product_{k = 1..A001221(n)} (A124010(n,k) + 1). - Reinhard Zumkeller, Jul 12 2013
a(n) = Sum_{k=1..n} A238133(k)*A000041(n-k). - Mircea Merca, Feb 18 2013
G.f.: Sum_{k>=1} Sum_{j>=1} x^(j*k). - Mats Granvik, Jun 15 2013
The formula above is obtained by expanding the Lambert series Sum_{k>=1} x^k/(1-x^k). - Joerg Arndt, Mar 12 2014
G.f.: Sum_{n>=1} Sum_{d|n} ( -log(1 - x^(n/d)) )^d / d!. - Paul D. Hanna, Aug 21 2014
2*Pi*a(n) = Sum_{m=1..n} Integral_{x=0..2*Pi} r^(m-n)( cos((m-n)*x)-r^m cos(n*x) )/( 1+r^(2*m)-2r^m cos(m*x) )dx, 0 < r < 1 a free parameter. This formula is obtained as the sum of the residues of the Lambert series Sum_{k>=1} x^k/(1-x^k). - Seiichi Kirikami, Oct 22 2015
a(n) = A091220(A091202(n)) = A106737(A156552(n)). - Antti Karttunen, circa 2004 & Mar 06 2017
a(n) = A034296(n) - A237665(n+1) [Wang, Fokkink, Fokkink]. - George Beck, May 06 2017
G.f.: 2*x/(1-x) - Sum_{k>0} x^k*(1-2*x^k)/(1-x^k). - Mamuka Jibladze, Aug 29 2018
a(n) = Sum_{k=1..n} 1/phi(n / gcd(n, k)). - Daniel Suteu, Nov 05 2018
a(k*n) = a(n)*(f(k,n)+2)/(f(k,n)+1), where f(k,n) is the exponent of the highest power of k dividing n and k is prime. - Gary Detlefs, Feb 08 2019
a(n) = 2*log(p(n))/log(n), n > 1, where p(n)= the product of the factors of n = A007955(n). - Gary Detlefs, Feb 15 2019
a(n) = (1/n) * Sum_{k=1..n} sigma(gcd(n,k)), where sigma(n) = sum of divisors of n. - Orges Leka, May 09 2019
a(n) = A001227(n)*(A007814(n) + 1) = A001227(n)*A001511(n). - Ivan N. Ianakiev, Nov 14 2019
From Richard L. Ollerton, May 11 2021: (Start)
a(n) = A038040(n) / n = (1/n)*Sum_{d|n} phi(d)*sigma(n/d), where phi = A000010 and sigma = A000203.
a(n) = (1/n)*Sum_{k=1..n} phi(gcd(n,k))*sigma(n/gcd(n,k))/phi(n/gcd(n,k)). (End)
From Ridouane Oudra, Nov 12 2021: (Start)
a(n) = Sum_{j=1..n} Sum_{k=1..j} (1/j)*cos(2*k*n*Pi/j);
a(n) = Sum_{j=1..n} Sum_{k=1..j} (1/j)*e^(2*k*n*Pi*i/j), where i^2=-1. (End)

Incorrect formula deleted by Ridouane Oudra, Oct 28 2021

A006558 Start of first run of n consecutive integers with same number of divisors.

Original entry on oeis.org

1, 2, 33, 242, 11605, 28374, 171893, 1043710445721, 2197379769820, 2642166652554075

Offset: 1

N. J. A. Sloane, Robert G. Wilson v

The entry 40311 given by Guy and by Wells is incorrect. - Jud McCranie, Jan 20 2002
a(10) <= 2642166652554075, a(11) <= 17707503256664346, a(12) <= 9827470582657267545. - David Wasserman, Feb 22 2008
a(10) > 10^13. - Giovanni Resta, Jul 13 2015
a(12) <= 3842083249515874843. - Hugo van der Sanden, Sep 20 2022
a(13) <= 34169215324203592637988571. - Hugo van der Sanden, Apr 13 2022
a(14) <= 9721439902882994590514319997146. - Hugo van der Sanden, Jun 14 2022
a(15) <= 80215613469168729088982885848674841. - Natalia Makarova, Sep 18 2022
a(16) <= 37981337212463143311694743672867136611416. - Vladimir Letsko, Mar 17 2017
a(17) <= 768369049267672356024049141254832375543516. - Vladimir Letsko, Sep 12 2017
a(18) <= 488900003598703704335810037459507226590256411. - Vladimir Letsko, Jun 03 2022
a(19) <= 5908388043825578351730345292813071711296723319324. - Vladimir Letsko, Apr 09 2022
a(20) <= 17668887847524548413038893976018715843277693308027547. Vladimir Letsko, May 30 2022
Spătaru proves that the longest such run up to N is at most exp(C*sqrt(log N log log N)) for some constant C, hence a(n) >> exp(exp(W((log^2 n)/C))) which is approximately exp(log^2 n/(2 log log n)). - Charles R Greathouse IV, Feb 06 2023

			33 has four divisors (1, 3, 11, and 33), 34 has four divisors (1, 2, 17, and 34), 35 has four divisors (1, 5, 7, and 35).  These are the first three consecutive numbers with the same number of divisors, so a(3)=33.

J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 33, pp 12, Ellipses, Paris 2008.
R. K. Guy, Unsolved Problems in Number Theory, section B18.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, page 87.
D. Wells, The Penguin Dictionary of Curious and Interesting Numbers, Penguin Books, NY, 1986, pages 147 and 176.

Pentti Haukkanen, Some computational results concerning the divisor functions d(n) and sigma(n), The Mathematics Student, Vol. 62 Nos. 1-4 (1993) pp. 166-168. See p. 167.
Vladimir A. Letsko, Some new results on consecutive equidivisible integers, arXiv:1510.07081 [math.NT], 2015.
Vladimir A. Letsko and Vasilii Dziubenko On consecutive equidivisible integers (in Russian), Boundaries of knowledge, 2 (45) 2016.
Carlos Rivera, Problem 20: k consecutive numbers with the same number of divisors, The Prime Puzzles and Problems Connection.
Carlos Rivera, Problem 61: problem 20 revisited, The Prime Puzzles and Problems Connection.
Vlad-Titus Spătaru, Runs of consecutive integers having the same number of divisors, arXiv preprint (2023). arXiv:2301.04464 [math.NT]

Cf. A000005, A005237, A005238, A006601, A049051, A019273, A039665.

Cf. A034173, A115158, A119479.

tau = DivisorSigma[0, #]&;
A006558[q_, w_] := Module[{a, k, j, ok, n}, For[j = 0, j <= w, j++, For[n = 1, n <= q, n++, ok = 1; a = tau[n]; For[k = 1, k <= j, k++, If[a != tau[n + k], ok = 0; Break[]]]; If [ok == 1, Print[n]; Break[]]]]];
A006558[2*10^5, 7] (* Jean-François Alcover, Dec 10 2017 *)

isok(n, k)=nb = numdiv(k); for (j=k+1, k+n-1, if (numdiv(j) != nb, return(0));); 1;
a(n) = {k=1; while (!isok(n, k), k++); k;} \\ Michel Marcus, Feb 17 2016

a(8) from Jud McCranie, Jan 20 2002
a(9) conjectured by David Wasserman, Jan 08 2006
a(9) confirmed by Jud McCranie, Jan 14 2006
a(10) by Jud McCranie, Nov 27 2018

A005238 Numbers k such that k, k+1 and k+2 have the same number of divisors.

Original entry on oeis.org

33, 85, 93, 141, 201, 213, 217, 230, 242, 243, 301, 374, 393, 445, 603, 633, 663, 697, 902, 921, 1041, 1105, 1137, 1261, 1274, 1309, 1334, 1345, 1401, 1641, 1761, 1832, 1837, 1885, 1893, 1924, 1941, 1981, 2013, 2054, 2101, 2133, 2181, 2217, 2264, 2305

Offset: 1

N. J. A. Sloane

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 840.
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 33, pp. 12, Ellipses, Paris 2008.
R. K. Guy, Unsolved Problems in Number Theory, B18.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from T. D. Noe)
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].

Cf. A000005, A005237, A006601, A049051, A006558, A019273, A039665, A051950.

import Data.List (elemIndices)
a005238 n = a005238_list !! (n-1)
a005238_list = map (+ 1) $ elemIndices 0 $ zipWith (+) ds $ tail ds where
   ds = map abs $ zipWith (-) (tail a000005_list) a000005_list
-- Reinhard Zumkeller, Oct 03 2012

Select[Range[2500],DivisorSigma[0,#]==DivisorSigma[0,#+1] == DivisorSigma[ 0,#+2]&] (* Harvey P. Dale, Nov 12 2012 *)
Flatten[Position[Partition[DivisorSigma[0,Range[2500]],3,1],{x_,x_,x_}]] (* Harvey P. Dale, Jul 06 2015 *)
SequencePosition[DivisorSigma[0,Range[2500]],{x_,x_,x_}][[All,1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 03 2017 *)

is(n)=my(d=numdiv(n)); numdiv(n+1)==d && numdiv(n+2)==d \\ Charles R Greathouse IV, Feb 06 2017

More terms from Olivier Gérard

A006601 Numbers k such that k, k+1, k+2 and k+3 have the same number of divisors.

Original entry on oeis.org

242, 3655, 4503, 5943, 6853, 7256, 8392, 9367, 10983, 11605, 11606, 12565, 12855, 12856, 12872, 13255, 13782, 13783, 14312, 16133, 17095, 18469, 19045, 19142, 19143, 19940, 20165, 20965, 21368, 21494, 21495, 21512, 22855, 23989, 26885

Offset: 1

N. J. A. Sloane

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 840.
Jean-Marie De Koninck, Ces nombres qui nous fascinent, Entry 242, p. 67, Ellipses, Paris 2008.
Richard K. Guy, Unsolved Problems in Number Theory, 3rd Edition, Springer, 2004, Section B18, pp. 111-113.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from T. D. Noe)
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
Victor Meally, Letter to N. J. A. Sloane, no date.

Cf. A000005, A006558, A019273, A119479.

Other runs of equidivisor numbers: A005237 (runs of 2), A005238 (runs of 3), A049051 (runs of 5), A049052 (runs of 6), A049053 (runs of 7).

import Data.List (elemIndices)
a006601 n = a006601_list !! (n-1)
a006601_list = map (+ 1) $ elemIndices 0 $
   zipWith3 (((+) .) . (+)) ds (tail ds) (drop 2 ds) where
   ds = map abs $ zipWith (-) (tail a000005_list) a000005_list
-- Reinhard Zumkeller, Jan 18 2014

f[n_]:=Length[Divisors[n]]; lst={};Do[If[f[n]==f[n+1]==f[n+2]==f[n+3],AppendTo[lst,n]],{n,8!}];lst (* Vladimir Joseph Stephan Orlovsky, Dec 14 2009 *)
dsQ[n_]:=Length[Union[DivisorSigma[0,Range[n,n+3]]]]==1; Select[Range[ 30000],dsQ] (* Harvey P. Dale, Nov 23 2011 *)
Flatten[Position[Partition[DivisorSigma[0,Range[27000]],4,1],?(Union[ Differences[ #]]=={0}&),{1},Heads->False]] (* Faster, because the number of divisors for each number is only calculated once *) (* _Harvey P. Dale, Nov 06 2013 *)
SequencePosition[DivisorSigma[0,Range[27000]],{x_,x_,x_,x_}][[All,1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 03 2017 *)

is(n)=my(t=numdiv(n)); numdiv(n+1)==t && numdiv(n+2)==t && numdiv(n+3)==t \\ Charles R Greathouse IV, Jun 25 2017

More terms from Olivier Gérard

A052213 Numbers k with prime signature(k) = prime signature(k+1).

Original entry on oeis.org

2, 14, 21, 33, 34, 38, 44, 57, 75, 85, 86, 93, 94, 98, 116, 118, 122, 133, 135, 141, 142, 145, 147, 158, 171, 177, 201, 202, 205, 213, 214, 217, 218, 230, 244, 253, 285, 296, 298, 301, 302, 326, 332, 334, 375, 381, 387, 393, 394, 429, 434, 445, 446, 453, 481

Offset: 1

Erich Friedman, Jan 29 2000

This sequence is infinite, see A189982 and Theorem 4 in Goldston-Graham-Pintz-Yıldırım. - Charles R Greathouse IV, Jul 17 2015
This is a subsequence of A005237, hence a(n) >> n sqrt(log log n) by the Erdős-Pomerance-Sárközy result cited there. - Charles R Greathouse IV, Jul 17 2015
Sequence is not the same as A280074, first deviation is at a(212): a(212) = 2041, A280074(212) = 2024. Number 2024 is the smallest number n such that A007425(n) = A007425(n+1) with different prime signatures of numbers n and n+1 (2024 = 2^3 * 11 * 23, 2025 = 3^4 * 5^2; A007425(2024) = A007425(2025) = 90). Conjecture: also numbers n such that Product_{d|n} tau(d) = Product_{d|n+1} tau(d). - Jaroslav Krizek, Dec 25 2016

			14 = 2^1*7^1 and 15 = 3^1*5^1, so both have prime signature {1,1}. Thus, 14 is a term.

T. D. Noe, Table of n, a(n) for n = 1..10000
D. A. Goldston, S. W. Graham, J. Pintz, and C. Y. Yıldırım, Small gaps between almost primes, the parity problem, and some conjectures of Erdos on consecutive integers, arXiv:0803.2636 [math.NT], 2008.
MathOverflow, Question on consecutive integers with similar prime factorizations
Eric Weisstein's MathWorld, Prime Signature
Wikipedia, Prime signature

Cf. A005237, A189982, A260143.

pri[n_] := Sort[ Transpose[ FactorInteger[n]] [[2]]]; Select[ Range[ 2, 1000], pri[#] == pri[#+1] &]
Rest[SequencePosition[Table[Sort[FactorInteger[n][[All,2]]],{n,500}],{x_,x_}][[All,1]]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 28 2017 *)

lista(nn) = for (n=1, nn-1, if (vecsort(factor(n)[,2]) == vecsort(factor(n+1)[,2]), print1(n, ", "));); \\ Michel Marcus, Jun 10 2015

from sympy import factorint
def aupto(limit):
    alst, prevsig = [], [1]
    for k in range(3, limit+2):
        sig = sorted(factorint(k).values())
        if sig == prevsig: alst.append(k - 1)
        prevsig = sig
    return alst
print(aupto(250)) # Michael S. Branicky, Sep 20 2021

A054004 Numbers k such that k and k+1 have the same number and sum of divisors.

Original entry on oeis.org

14, 1334, 1634, 2685, 33998, 42818, 64665, 84134, 109214, 122073, 166934, 289454, 383594, 440013, 544334, 605985, 649154, 655005, 792855, 1642154, 2284814, 2305557, 2913105, 3571905, 3682622, 4701537, 5181045, 6431732

Offset: 1

Asher Auel, Jan 12 2000

nonn

			Divisors of 14 = {1, 2, 7, 14}, divisors of 15 = {1, 3, 5, 15}, both have four divisors and sum = 24.

Amiram Eldar, Table of n, a(n) for n = 1..1831 (calculated using the b-file at A002961; terms 1..967 from T. D. Noe)

Cf. A000005, A000203, A002961, A005237, A053249, A054005, A054006, A054007.

Select[Range[100000], DivisorSigma[0, #] == DivisorSigma[0, # + 1] && DivisorSigma[1, #] == DivisorSigma[1, # + 1] &] (* Jayanta Basu, Mar 20 2013 *)

More terms from Jud McCranie, Jun 02 2000

A049051 Numbers k such that k through k+4 all have the same number of divisors.

Original entry on oeis.org

11605, 12855, 13782, 19142, 21494, 28374, 28375, 40311, 42805, 50582, 55254, 60231, 60663, 79094, 87655, 90181, 90182, 95845, 99655, 103621, 109765, 115591, 120727, 121045, 122151, 122871, 142454, 142806, 152630, 157493, 157494, 171893

Offset: 1

David W. Wilson

nonn

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Donovan Johnson)

Cf. A000005, A006558, A019273, A039665, A119479.

Other runs of equidivisor numbers: A005237 (runs of 2), A005238 (runs of 3), A006601 (runs of 4), A049052 (runs of 6), A049053 (runs of 7).

Flatten[Position[Partition[DivisorSigma[0,Range[200000]],5,1],?(Length[ Union[#]] == 1&),{1},Heads->False]] (* _Harvey P. Dale, May 30 2014 *)
SequencePosition[DivisorSigma[0,Range[200000]],{x_,x_,x_,x_,x_}][[All,1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 03 2017 *)

A343819 Numbers k such that k and k+1 have the same number of Fermi-Dirac factors (A064547).

Original entry on oeis.org

2, 3, 4, 14, 16, 20, 21, 26, 27, 32, 33, 34, 35, 38, 44, 45, 50, 51, 57, 62, 63, 64, 68, 74, 75, 76, 85, 86, 91, 92, 93, 94, 98, 99, 104, 111, 115, 116, 117, 118, 122, 123, 124, 133, 135, 141, 142, 143, 144, 145, 146, 147, 158, 161, 171, 175, 176, 177, 187, 189

Offset: 1

Amiram Eldar, Apr 30 2021

nonn

Since the number of infinitary divisors of k is A037445(k) = 2^A064547(k), this is also the sequence of numbers k such that k and k+1 have the same number of infinitary divisors.

			2 is a term since A064547(2) = A064547(3) = 1.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A064547, A306985, A343818.
Similar sequences: A005237, A006049.
Subsequence of A086263.

fd[1] = 0; fd[n_] := Plus @@ DigitCount[FactorInteger[n][[;;,2]], 2, 1]; Select[Range[200], fd[#] == fd[# + 1] &]

A019273 First run of n consecutive integers with same number of divisors ends at a(n).

Original entry on oeis.org

1, 3, 35, 245, 11609, 28379, 171899, 1043710445728, 2197379769828, 2642166652554084

Offset: 1

Jud McCranie

The entry 40315 given in Guy and Wells is incorrect.

Terminating number in the sequence of consecutive integers with the same number of divisors in A006558. - Jud McCranie, Jan 14 2006

			phi(33)=phi(34)=phi(35), so a(3)=35

R. K. Guy "Unsolved Problems in Number Theory", section B18.
David Wells "Dictionary of Curious and Interesting Numbers" #40311.

Cf. A000005, A005237, A005238, A006601, A049051, A006558, A039665.

a(n)=A006558(n)+n-1.

More terms from Jud McCranie, Oct 04 2002
One more term from Jud McCranie, Jan 14 2006
a(10) by Jud McCranie, Nov 27 2018

cp's OEIS Frontend

A049111 Number of divisors of A005237(n).

Views

Author

Keywords

Links

Crossrefs

A000005 d(n) (also called tau(n) or sigma_0(n)), the number of divisors of n.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

GAP

Haskell

Haskell

Julia

Magma

Maple

Mathematica

MuPAD

PARI

PARI

PARI

Python

Sage

Formula

Extensions

A006558 Start of first run of n consecutive integers with same number of divisors.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A005238 Numbers k such that k, k+1 and k+2 have the same number of divisors.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Extensions

A006601 Numbers k such that k, k+1, k+2 and k+3 have the same number of divisors.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Haskell

Mathematica

PARI

Extensions

A052213 Numbers k with prime signature(k) = prime signature(k+1).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI