A322839 Numbers n with more prime factors (counted with multiplicity) than n+1.

4, 6, 8, 10, 12, 16, 18, 20, 22, 24, 28, 30, 32, 36, 40, 42, 45, 46, 48, 50, 52, 54, 56, 58, 60, 64, 66, 68, 70, 72, 76, 78, 80, 81, 82, 84, 88, 90, 92, 96, 100, 102, 104, 105, 106, 108, 110, 112, 114, 117, 120, 126, 128, 130, 132, 136, 138, 140, 144, 148, 150

Offset

1,1

Comments

First differs from A074827 in having 104.

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

104 has four prime factors (2, 2, 2, 13), while 105 has only three (3, 5, 7), so 104 belongs to the sequence.

Maple

R:= NULL: count:= 0: w:= 0:
for n from 2 while count < 100 do
  v:= numtheory:-bigomega(n);
  if v < w then R:= R, n-1; count:= count+1; fi;
  w:= v;
od:
R; # Robert Israel, Jan 16 2023

Mathematica

Select[Range[100], PrimeOmega[#]>PrimeOmega[#+1]&]
Position[Partition[PrimeOmega[Range[200]], 2, 1], _?(#[[1]]>#[[2]]&), 1, Heads -> False]//Flatten (* Harvey P. Dale, Jan 02 2021 *)

Crossrefs

Cf. A000961, A001221, A001222, A045920, A294277, A294278, A302242, A322838, A322840.

Sequence in context: A053226 A227112 A051756 * A074827 A068354 A354591

Adjacent sequences: A322836 A322837 A322838 * A322840 A322841 A322842

Keyword

nonn

Author

Gus Wiseman, Dec 28 2018

Status

approved