The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A277758 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A277758

The number of highly composite numbers between the factorials n! and (n+1)!.
(history; published version)

#36 by N. J. A. Sloane at Tue Nov 01 05:01:06 EDT 2016

STATUS

proposed

approved

#35 by Joerg Arndt at Tue Nov 01 04:36:41 EDT 2016

STATUS

editing

proposed

#34 by Joerg Arndt at Tue Nov 01 04:36:35 EDT 2016

LINKS

Joerg Arndt, <a href="/A277758/b277758.txt">Table of n, a(n) for n = 1..371</a>

#33 by Joerg Arndt at Tue Nov 01 04:34:36 EDT 2016

DATA

1, 2, 2, 4, 4, 5, 7, 9, 9, 10, 10, 12, 10, 11, 12, 13, 13, 14, 12, 14, 12, 15, 15, 17, 15, 19, 19, 17, 19, 20, 21, 17, 24, 20, 20, 21, 22, 22, 20, 26, 26, 24, 26, 29, 27, 28, 26, 27, 27, 31, 28, 28, 28, 31, 29, 30, 30, 28, 29, 32, 32, 26, 26, 31, 28, 29, 28, 30, 34, 33, 34, 35, 34, 31, 37, 35, 35, 35, 37, 42, 39, 37, 40

KEYWORD

nonn,more,new

EXTENSIONS

Terms a(12)..a(55) and beyond from Joerg Arndt, Nov 01 2016

#32 by Joerg Arndt at Tue Nov 01 03:58:08 EDT 2016

DATA

EXTENSIONS

Terms a(12)..a(55) from Joerg Arndt, Nov 01 2016

STATUS

approved

editing

#31 by N. J. A. Sloane at Mon Oct 31 13:31:28 EDT 2016

STATUS

proposed

approved

#30 by Michael De Vlieger at Mon Oct 31 08:22:34 EDT 2016

STATUS

editing

proposed

Discussion

Mon Oct 31

12:35

Joerg Arndt: Using the b-file from A002182 you can easily add more terms!

#29 by Michael De Vlieger at Mon Oct 31 08:22:15 EDT 2016

MATHEMATICA

nn = 9; Table[Count[#, k_ /; n! <= k < (n + 1)!], {n, nn}] &[Block[{a = 0}, Reap[Do[b = DivisorSigma[0, k]; If[b > a, a = b; Sow[k]], {k, (nn + 1)!}]][[-1, 1]]]] (* Michael De Vlieger, Oct 31 2016 *)

STATUS

proposed

editing

#28 by Antti Karttunen at Sat Oct 29 03:25:02 EDT 2016

STATUS

editing

proposed

#27 by Antti Karttunen at Sat Oct 29 03:24:11 EDT 2016

EXAMPLE

a(5) = 4 since the four highly composite numbers (A002182) in the interval [5!,6!) are 120, 180, 240, and 360.

STATUS

proposed

editing