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

Author

Robert G. Wilson v, May 27 2004

Keywords

• nonn

Crossrefs

Cf. A001221, A095134.

Programs

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}]

Formula

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