A387537 a(n) = maximum k such that B(n) < B(n+1) < ... < B(n+k-1), where B = omega (A001221).

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

Offset

1,1

Links

Michael De Vlieger, Table of n, a(n) for n = 1..20000

Mathematica

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

Crossrefs

Cf. A001221, A387535, A387536, A387538 (records).

Sequence in context: A360617 A102097 A384179 * A361566 A354991 A354990

Adjacent sequences: A387534 A387535 A387536 * A387538 A387539 A387540

Keyword

nonn

Author

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

Status

approved