A049052 -id:A049052 - cp's OEIS frontend

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

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

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 *)

A049053 Numbers k such that k through k+6 all have the same number of divisors.

Original entry on oeis.org

171893, 180965, 647381, 1039493, 1071829, 1450261, 1563653, 1713413, 2129029, 2384101, 4704581, 4773301, 5440853, 5775365, 6627061, 6644405, 6697253, 8556661, 8833429, 10531253, 12101509, 12238453, 12307141, 13416661, 13970405

Offset: 1

David W. Wilson

nonn

Allan Swett found that the first term not congruent to 5 mod 16 is 67073285. - Ralf Stephan, Nov 15 2004

Since A119479(n) < 7 for n < 8, no term has fewer than 8 divisors; the first that has more is a(30)=17476613. - Ivan Neretin, Feb 05 2016

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Donovan Johnson)
Jean-Marie De Koninck, Those Fascinating Numbers, Amer. Math. Soc., 2009, page 244.

Cf. A000005, A006558, A019273, A119479.

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

isok(n) = {my(nb = numdiv(n)); for (k=1, 6, if (numdiv(n+k) != nb, return (0));); 1;} \\ Michel Marcus, Feb 06 2016

A292580 T(n,k) is the start of the first run of exactly k consecutive integers having exactly 2n divisors. Table read by rows.

Original entry on oeis.org

5, 2, 6, 14, 33, 12, 44, 603, 242, 10093613546512321, 24, 104, 230, 3655, 11605, 28374, 171893, 48, 2511, 7939375, 60, 735, 1274, 19940, 204323, 368431323, 155385466971, 18652995711772, 15724736975643, 2973879756088065948, 9887353188984012120346

Offset: 1

Jon E. Schoenfield, Sep 19 2017

The number of terms in row n is A119479(2n).
Düntsch and Eggleton (1989) has typos for T(3,5) and T(10,3) (called D(6,5) and D(20,3) in their notation). Letsko (2015) and Letsko (2017) both have a wrong value for T(7,3).
The first value required to extend the data is T(6,13) <= 586683019466361719763403545; the first unknown value that may exist is T(12,19). See the a-file for other known values and upper bounds up to T(50,7).

			T(1,1) = 5 because 5 is the start of the first "run" of exactly 1 integer having exactly 2*1=2 divisors (5 is the first prime p such that both p-1 and p+1 are nonprime);
T(1,2) = 2 because 2 is the start of the first run of exactly 2 consecutive integers having exactly 2*1=2 divisors (2 and 3 are the only consecutive integers that are prime);
T(3,4) = 242 because the first run of exactly 4 consecutive integers having exactly 2*3=6 divisors is 242 = 2*11^2, 243 = 3^5, 244 = 2^2*61, 245 = 5*7^2.
Table begins:
   n  T(n,1), T(n,2), ...
  ==  ========================================================
   1  5, 2;
   2  6, 14, 33;
   3  12, 44, 603, 242, 10093613546512321;
   4  24, 104, 230, 3655, 11605, 28374, 171893;
   5  48, 2511, 7939375;
   6  60, 735, 1274, 19940, 204323, 368431323, 155385466971, 18652995711772, 15724736975643, 2973879756088065948, 9887353188984012120346, 120402988681658048433948, T(6,13), ...;
   7  192, 29888, 76571890623;
   8  120, 2295, 8294, 153543, 178086, 5852870, 17476613;
   9  180, 6075, 959075, 66251139635486389922, T(9,5);
  10  240, 5264, 248750, 31805261872, 1428502133048749, 8384279951009420621, 189725682777797295066519373;
  11  3072, 2200933376, 104228508212890623;
  12  360, 5984, 72224, 2919123, 15537948, 973277147, 33815574876, 1043710445721, 2197379769820, 2642166652554075, 17707503256664346, T(12,12), ...;
  13  12288, 689278976, 1489106237081787109375;
  14  960, 156735, 23513890624, 4094170438109373, 55644509293039461218749, 4230767238315793911295500109374, 273404501868270838132985214432619890621;
  15  720, 180224, 145705879375, 10868740069638250502059754282498, T(15,5);
  16  840, 21735, 318680, 6800934, 57645182, 1194435205, 14492398389;
  ...

Hugo van der Sanden, Table of n, a(n) for n = 1..32
Ivo Düntsch and Roger B. Eggleton, Equidivisible consecutive integers, 1989.
Vladimir A. Letsko, Some new results on consecutive equidivisible integers, arXiv:1510.07081 [math.NT], 2015.
Vladimir A. Letsko, Table of a(n) for all even n such that exact value of a(n) is proved, 2017.
Carlos Rivera, Problem 20: k consecutive numbers with the same number of divisors, The Prime Puzzles and Problems Connection.
Hugo van der Sanden, calculation of T(6,11).
Hugo van der Sanden, calculation of T(6,12).
Hugo van der Sanden, A-file with known values and bounds up to T(50,7)

Cf. A000005, A006558, A072507, A119479.
Cf. A005237, A005238, A006601, A049051, A049052, A049053.
Cf. A003680, A075036, A075040.

T(n,2) = A075036(n). - Jon E. Schoenfield, Sep 23 2017

a(1)-a(25) from Düntsch and Eggleton (1989) with corrections by Jon E. Schoenfield, Sep 19 2017
a(26)-a(27) from Giovanni Resta, Sep 20 2017
a(28)-a(29) from Hugo van der Sanden, Jan 12 2022
a(30) from Hugo van der Sanden, Sep 03 2022
a(31) added by Hugo van der Sanden, Dec 05 2022; see "calculation of T(6,11)" link for a list of the people involved.
a(32) added by Hugo van der Sanden, Dec 18 2022; see "calculation of T(6,12)" link for a list of the people involved.

cp's OEIS Frontend

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

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

A049053 Numbers k such that k through k+6 all have the same number of divisors.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

A292580 T(n,k) is the start of the first run of exactly k consecutive integers having exactly 2n divisors. Table read by rows.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula

Extensions