A084365 Squarefree kernel of numbers that are not prime powers.

6, 10, 6, 14, 15, 6, 10, 21, 22, 6, 26, 14, 30, 33, 34, 35, 6, 38, 39, 10, 42, 22, 15, 46, 6, 10, 51, 26, 6, 55, 14, 57, 58, 30, 62, 21, 65, 66, 34, 69, 70, 6, 74, 15, 38, 77, 78, 10, 82, 42, 85, 86, 87, 22, 30, 91, 46, 93, 94, 95, 6, 14, 33, 10, 102, 26, 105, 106, 6

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = A007947(A024619(n)).

Mathematica

f[n_] := If[Length[(p = FactorInteger[n][[;; , 1]])] > 1, Times @@ p, 0]; Select[f /@ Range[300], # > 0 &] (* Amiram Eldar, Sep 07 2020 *)

Crossrefs

Cf. A007947, A024619.

Sequence in context: A156383 A247270 A010726 * A066135 A070393 A071630

Adjacent sequences: A084362 A084363 A084364 * A084366 A084367 A084368

Keyword

nonn

Author

Reinhard Zumkeller, Jun 22 2003

Status

approved