A225230 In the canonical prime factorization of n: (number of distinct primes) minus (largest prime exponent).

0, 0, 0, -1, 0, 1, 0, -2, -1, 1, 0, 0, 0, 1, 1, -3, 0, 0, 0, 0, 1, 1, 0, -1, -1, 1, -2, 0, 0, 2, 0, -4, 1, 1, 1, 0, 0, 1, 1, -1, 0, 2, 0, 0, 0, 1, 0, -2, -1, 0, 1, 0, 0, -1, 1, -1, 1, 1, 0, 1, 0, 1, 0, -5, 1, 2, 0, 0, 1, 2, 0, -1, 0, 1, 0, 0, 1, 2, 0, -2, -3

Offset

1,8

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Formula

a(n) = A001221(n) - A051903(n).

a(A212164(n)) < 0; a(A212165(n)) <= 0; a(A212166(n)) = 0; a(A188654(n)) <> 0; a(A212167(n)) >= 0; a(A212168(n)) > 0.

Mathematica

a[n_] := Module[{e = FactorInteger[n][[;; , 2]]}, Length[e] - Max[e]]; Array[a, 100] (* Amiram Eldar, Sep 09 2024 *)

Prog

(Haskell)
a225230 n = a001221 n - a051903 n
(PARI) a(n) = if (n>1, my(f=factor(n)); #f~ - vecmax(f[, 2]), 0); \\ Michel Marcus, Jan 26 2022

Crossrefs

Cf. A001221, A051903.

Cf. A188654, A212164, A212165, A212166, A212167, A212168.

Sequence in context: A030425 A340391 A076879 * A367106 A328084 A351357

Adjacent sequences: A225227 A225228 A225229 * A225231 A225232 A225233

Keyword

sign

Author

Reinhard Zumkeller, May 03 2013

Status

approved