The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Also A046523(n) <> n, as A046523(n) <= A071364(n) <= n. LINKS 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: A309123 A146170 A217857 * A321517 A045165 A261286 Adjacent sequences:  A071363 A071364 A071365 * A071367 A071368 A071369 KEYWORD nonn AUTHOR Reinhard Zumkeller, May 21 2002 EXTENSIONS Extended by Ray Chandler, Sep 23 2005 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 21 14:35 EST 2022. Contains 350479 sequences. (Running on oeis4.)