A073332 Composite solutions to S(n) = rad(n), where S() is A002034 and rad() is A007947.

18, 36, 48, 50, 72, 98, 100, 144, 196, 200, 242, 338, 375, 392, 400, 484, 578, 676, 722, 784, 800, 968, 1029, 1058, 1125, 1156, 1280, 1352, 1444, 1568, 1600, 1682, 1922, 1936, 2116, 2312, 2704, 2738, 2888, 3087, 3136, 3200, 3362, 3364, 3375, 3645, 3698, 3844

Offset

1,1

Links

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

Mathematica

kemp[n_] := Module[{m = 1}, While[!IntegerQ[m!/n], m++]; m]; rad[n_] := Times @@ (First@# & /@ FactorInteger@ n); aQ[n_] := CompositeQ[n] && kemp[n] == rad[n]; Select[Range[10000], aQ] (* Amiram Eldar, Jan 28 2019 *)

Crossrefs

Cf. A002034, A007947.

Sequence in context: A040306 A346137 A303282 * A261991 A109428 A329611

Adjacent sequences: A073329 A073330 A073331 * A073333 A073334 A073335

Keyword

nonn

Author

Jason Earls, Aug 22 2002

Extensions

More terms from Amiram Eldar, Jan 28 2019

Status

approved