A066632 Composites of form prime-1 containing a record number of prime factors.

4, 12, 16, 72, 96, 192, 256, 768, 3456, 7680, 12288, 40960, 65536, 737280, 786432, 5308416, 7340032, 14155776, 28311552, 104857600, 113246208, 167772160, 469762048, 1811939328, 3221225472, 24159191040, 75161927680, 77309411328

Offset

1,1

Comments

Prime factors counted with multiplicity. - Harvey P. Dale, Sep 25 2021

Links

Table of n, a(n) for n=1..28.

Mathematica

DeleteDuplicates[{#, PrimeOmega[#]}&/@(Prime[Range[3, 10^6]]-1), GreaterEqual[ #1[[2]], #2[[2]]]&][[All, 1]] (* The program generates the first 18 terms of the sequence. *) (* Harvey P. Dale, Dec 25 2022 *)

Prog

(PARI) {A066632(a, b) = local(p, c, d); forprime(p=a, b, d=bigomega(p-1); if(d>c, c=d; print1(p-1, ", ")))} A066632(5, 10^8)

Crossrefs

Sequence in context: A351893 A327295 A361418 * A038242 A370191 A048661

Adjacent sequences: A066629 A066630 A066631 * A066633 A066634 A066635

Keyword

nonn

Author

G. L. Honaker, Jr., Jan 13 2002

Extensions

More terms from Jason Earls, Jan 15 2002

Edited definition and a(20)-a(28) from Donovan Johnson, Dec 08 2009

Status

approved