[go: up one dir, main page]

login
A066632
Composites of form prime-1 containing a record number of prime factors.
1
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
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
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