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
CROSSREFS
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