This site is supported by donations to The OEIS Foundation.

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A111371 A number n is included if at least one prime dividing n is equal to an exponent of the highest power of any prime dividing n. 0
 4, 12, 18, 20, 24, 27, 28, 36, 44, 50, 52, 54, 60, 68, 72, 76, 84, 90, 92, 98, 100, 108, 116, 120, 124, 126, 132, 135, 140, 144, 148, 150, 156, 160, 164, 168, 172, 180, 188, 189, 196, 198, 200, 204, 212, 216, 220, 228, 234, 236, 242, 244, 252, 260, 264, 268, 270 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS EXAMPLE 50 = 2^1 * 5^2. 2 is both a prime dividing 50 and the exponent of the highest power of 5 dividing 50. So 50 is in the sequence. MATHEMATICA Select[Range[2, 300], Intersection @@ Transpose[FactorInteger[ # ]] != {} &] (*Chandler*) fQ[n_] := Block[{fi = FactorInteger[n]}, Position[ First[ # ] & /@ fi, Max[ Last[ # ] & /@ fi]] != {}]; Select[ Range[2, 291], fQ[ # ] &] (* Robert G. Wilson v *) CROSSREFS Sequence in context: A300747 A303795 A175704 * A078514 A230628 A074285 Adjacent sequences:  A111368 A111369 A111370 * A111372 A111373 A111374 KEYWORD nonn AUTHOR Leroy Quet, Nov 08 2005 EXTENSIONS Extended by Ray Chandler and Robert G. Wilson v, Nov 09 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 16 15:53 EST 2019. Contains 319195 sequences. (Running on oeis4.)