A073332 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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 A375397 A109428

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