A295992 Numbers k such that there are precisely 6 groups of orders k and k + 1.

506, 4718, 6909, 32474, 32585, 39225, 46598, 47937

Offset: 1

Author

Muniru A Asiru, Dec 02 2017

Keywords

• nonn
• more

Comments

Equivalently, lower member of consecutive terms of A135850.

Other terms in this sequence are: 51009, 75525, 86174, 95109, 96837, 118202, 123057, 126825, 134210, 139209, 143142, 148910, 157322, 169197, 218517, 249710, 261674, 262274, 271778, 273825, 297609, 300909, 310497, 379274, 391910, 449709, 501105, 511574, 526274, 538425, 552146, 559041, 570506, 582658, 588146, 589910, 596210, 629210, 639302, 648654, 650274, 653174, 658574, 658734, 668210, 668409, 680225, 697454, 742274, 753909, 768009, 810122, 823305, 847310, 854510, 870110, 891225, 928010, 935325, 952574, 960621, 964725, 978873, 981573, 983025. There are probably others in this range. - Robert Price, May 23 2019

Examples

			506 is in the sequence because A000001(506) = A000001(507) = 6, 4718 is in the sequence because A000001(4718) = A000001(4719) = 6 and 32585 is in the sequence because A000001(32585) = A000001(32586) = 6.
		

Links

• H. U. Besche, B. Eick and E. A. O'Brien. A Millennium Project: Constructing Small Groups, Internat. J. Algebra and Computation, 12 (2002), 623-644.
• Gordon Royle, Numbers of Small Groups
• Index entries for sequences related to groups

Crossrefs

Cf. A000001, A135850.

Programs

Mathematica

Select[Range[10^6], (FiniteGroupCount[#] == 6 && FiniteGroupCount[# + 1] == 6) &] (* Due to a limit in Mathematica, some numbers >2047 cannot be evaluated. *) (* Robert Price, May 23 2019 *)

Formula

Sequence is { n | A000001(n) = 6, A000001(n+1) = 6 }.