

A078514


Smallest prime = largest exponent in n factorization.


1



4, 12, 18, 20, 27, 28, 36, 44, 50, 52, 60, 68, 76, 84, 90, 92, 98, 100, 116, 124, 126, 132, 135, 140, 148, 150, 156, 164, 172, 180, 188, 189, 196, 198, 204, 212, 220, 228, 234, 236, 242, 244, 252, 260, 268, 276, 284, 292, 294, 297, 300, 306, 308, 316, 332, 338
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000


EXAMPLE

126 = 2*3^2*7 minimum prime is 2, largest exponent is also 2, hence 126 is in the sequence


MATHEMATICA

spleQ[n_]:=Module[{f=FactorInteger[n]}, f[[1, 1]]==Max[f[[All, 2]]]]; Select[ Range[2, 400], spleQ] (* Harvey P. Dale, Aug 19 2017 *)


CROSSREFS

Sequence in context: A303795 A175704 A111371 * A230628 A074285 A301252
Adjacent sequences: A078511 A078512 A078513 * A078515 A078516 A078517


KEYWORD

nonn


AUTHOR

Benoit Cloitre, Jan 06 2003


STATUS

approved



