A387535 a(n) = maximum k such that B(n) < B(n+1) < ... < B(n+k-1), where B = bigomega (A001222).

2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 4, 3, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 2, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2

Offset

1,1

Links

N. J. A. Sloane, Table of n, a(n) for n = 1..20000

Mathematica

Table[m = n + 1; j = PrimeOmega[n]; While[Set[k, PrimeOmega[m]] > j, m++; j = k]; m - n, {n, 120}] (* Michael De Vlieger, Oct 08 2025 *)

Crossrefs

Cf. A001222, A387536 (indices of records), A387537, A387538.

Sequence in context: A319610 A288739 A111621 * A326398 A078614 A140195

Adjacent sequences: A387532 A387533 A387534 * A387536 A387537 A387538

Keyword

nonn

Author

Scott R. Shannon and N. J. A. Sloane, Oct 07 2025.

Status

approved