A365783 a(n) = squarefree kernel of A126706(n).

6, 6, 10, 6, 14, 6, 10, 22, 15, 6, 10, 26, 6, 14, 30, 21, 34, 6, 15, 38, 10, 42, 22, 30, 46, 6, 14, 33, 10, 26, 6, 14, 58, 39, 30, 62, 42, 66, 15, 34, 70, 6, 21, 74, 30, 38, 51, 78, 10, 6, 82, 42, 57, 86, 35, 22, 30, 46, 94, 21, 6, 14, 66, 10, 102, 69, 26, 106

Offset

1,1

Comments

Terms are squarefree and composite, i.e., in A120944.

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Formula

a(n) = A007947(A126706(n)).

Example

Let b(n) = A126706(n) and let squarefree kernel rad(n) = A007947(n).
a(1) = 6 = rad(b(1)) = rad(12).
a(2) = 6 = rad(b(2)) = rad(18).
a(3) = 10 = rad(b(3)) = rad(20), etc.

Mathematica

Map[Times @@ FactorInteger[#][[All, 1]] &, Select[Range[12, 212], Nor[PrimePowerQ[#], SquareFreeQ[#]] &] ]

Prog

(PARI) apply(x->(x/factorback(factorint(x)[, 1])), select(x->(!issquarefree(x) && !isprimepower(x)), [1..1000])) \\ Michel Marcus, Sep 19 2023

Crossrefs

Cf. A007947, A120944, A126706, A365784, A365785.

Sequence in context: A205372 A301690 A365786 * A366937 A096474 A220439

Adjacent sequences: A365780 A365781 A365782 * A365784 A365785 A365786

Keyword

nonn

Author

Michael De Vlieger, Sep 19 2023

Status

approved