|
|
|
|
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
|
|
|
LINKS
|
|
|
EXAMPLE
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|