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

 

Logo
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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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