login
A071366
Numbers n such that A046523(n) <> A071364(n) and A071364(n) <> n.
2
50, 75, 98, 126, 147, 198, 234, 242, 245, 250, 294, 306, 338, 342, 350, 363, 375, 378, 414, 490, 500, 507, 522, 525, 550, 558, 578, 588, 594, 605, 650, 666, 686, 702, 722, 726, 735, 738, 756, 774, 825, 845, 846, 847, 850, 867, 882, 918, 950, 954, 975, 980
OFFSET
1,1
COMMENTS
Also A046523(n) <> n, as A046523(n) <= A071364(n) <= n.
EXAMPLE
n=50=2*5*5: A071364(50)=2*3*3=18, A046523(50)=2*2*3=12;
n=500=2*2*5*5*5: A071364(500)=2*2*3*3*3=108, A046523(500)=2*2*2*3*3=72.
MATHEMATICA
Select[Range[1000], (e = Last /@ FactorInteger[ # ]) != Sort[e, Greater] && Product[Prime[i]^e[[i]], {i, Length[e]}] != # &] (* Ray Chandler, Sep 23 2005 *)
CROSSREFS
Cf. A071365.
Sequence in context: A146170 A367708 A217857 * A321517 A045165 A261286
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 21 2002
EXTENSIONS
Extended by Ray Chandler, Sep 23 2005
STATUS
approved