1,1

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

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

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

Cf. A007947, A024619.

Sequence in context: A156383 A247270 A010726 * A066135 A070393 A071630

Adjacent sequences: A084362 A084363 A084364 * A084366 A084367 A084368

nonn

Reinhard Zumkeller, Jun 22 2003

approved