A095136 Number of distinct prime factors of A095134(n).

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 2, 3, 2, 2, 1, 2, 2, 3, 1, 3, 2, 1, 2, 2, 4, 1, 3, 4, 3, 1, 2, 3, 4, 4, 2, 3, 4, 3, 3, 4, 3, 5, 3, 6, 3, 5, 4, 3, 4, 2, 1, 2, 3, 2, 3, 2, 5, 5, 4, 3, 4, 6, 5, 2, 5, 3, 4, 1, 4, 2, 2, 3, 4

Offset

1,12

Links

Table of n, a(n) for n=1..80.

Formula

a(n) = A001221(A095134(n)). - Wesley Ivan Hurt, Jan 01 2024

Mathematica

PrimeFactors[n_] := Flatten[ Table[ #[[1]], {1} ] & /@ FactorInteger[n]]; f[n_] := Product[ Prime[i], {i, 2, n, 2}] + Product[ Prime[i], {i, 1, n, 2}]; f[1] = 2; Table[ Length[ PrimeFactors[ f[n]]], {n, 80}]

Crossrefs

Cf. A001221, A095134.

Sequence in context: A029365 A204178 A365466 * A105540 A356958 A057043

Adjacent sequences: A095133 A095134 A095135 * A095137 A095138 A095139

Keyword

nonn

Author

Robert G. Wilson v, May 27 2004

Status

approved