A304235 Colossally abundant numbers that are highly composite, but not superior highly composite.

160626866400, 9316358251200, 288807105787200, 2021649740510400, 224403121196654400, 9200527969062830400, 395622702669701707200, 1970992304700453905270400, 35468006523084668025340848000, 135483209545341953934626770390608000

Offset

1,1

Comments

Numbers m in A004490 that are also in A002182 but not A002201.

Subset of A166981. Numbers in this sequence are in neither A224078 nor A304234.

There are 32 terms in this sequence.

The smallest term is 2^4 * 3^2 * 5 * A002110(9) or the product of k = {1,1,2,3,9} in A002110.

The largest term is 2^9 * 3^5 * 5^3 * 7^2 * 11 * 13 * 17 * 19 * 23 * A002110(66) or the product of A002110(k) with k = {1,1,1,1,2,2,3,4,9,66}, a 146 digit decimal number.

Links

Michael De Vlieger, Table of n, a(n) for n = 1..32

Michael De Vlieger, Colossally abundant m that are also highly composite but not superior highly composite

Michael De Vlieger, Color coded plot of m A002182 and A004394 at (x,y) where A301414(x) * A002110(y) = m, terms in this sequence are colored dark red.

Michael De Vlieger, Annotated plot of a(n) for 1 <= n <= 32 at (x,y) = (a(n)/A002110(A001221(a(n)), A002110(A001221(a(n)))

Mathematica

(* First, download b-files at A002182, A002201, and A004490 *)
With[{s = Import["b004490.txt", "Data"][[All, -1]], t = Import["b002182.txt", "Data"][[All, -1]], u = Import["b002201.txt", "Data"][[All, -1]]}, Select[Intersection[s, t], FreeQ[u, #] &]]

Crossrefs

Cf. A002110, A002182, A002201, A004394, A004490, A166981, A224078, A304234.

Sequence in context: A290157 A288283 A271819 * A233503 A241501 A197633

Adjacent sequences: A304232 A304233 A304234 * A304236 A304237 A304238

Keyword

nonn,fini

Author

Michael De Vlieger, May 08 2018

Status

approved