A378993 a(n) = n - omega(n), where omega = A001221.

1, 1, 2, 3, 4, 4, 6, 7, 8, 8, 10, 10, 12, 12, 13, 15, 16, 16, 18, 18, 19, 20, 22, 22, 24, 24, 26, 26, 28, 27, 30, 31, 31, 32, 33, 34, 36, 36, 37, 38, 40, 39, 42, 42, 43, 44, 46, 46, 48, 48, 49, 50, 52, 52, 53, 54, 55, 56, 58, 57, 60, 60, 61, 63, 63, 63, 66, 66

Offset

1,3

Links

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

Formula

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

Example

a(40) = 38, since 40 has two distinct prime divisors (2 and 5), and so 40 - 2 = 38.
a(41) = 40 also, since 41 is prime and therefore 41 - 1 = 40.
a(42) = 39, since 42 has three distinct prime divisors (2, 3, 7), and so 42 - 3 = 39.

Mathematica

a[n_]:=n-PrimeNu[n]; Array[a, 68] (* Stefano Spezia, Dec 29 2024 *)

Prog

(PARI) a(n) = n - omega(n);

Crossrefs

Cf. A001221, A229109.

Sequence in context: A092601 A353705 A162906 * A356397 A350656 A100476

Adjacent sequences: A378990 A378991 A378992 * A378994 A378995 A378996

Keyword

nonn,easy

Author

Torlach Rush, Dec 17 2024

Status

approved