|
| |
|
|
A102834
|
|
Numbers whose factors are primes raised to powers >= 2 and are not perfect squares.
|
|
1
| |
|
|
8, 27, 32, 72, 108, 125, 128, 200, 216, 243, 288, 343, 392, 432, 500, 512, 648, 675, 800, 864, 968, 972, 1000, 1125, 1152, 1323, 1331, 1352, 1372, 1568, 1728, 1800, 1944, 2000, 2048, 2187, 2197, 2312, 2592, 2700, 2744, 2888, 3087, 3125, 3200, 3267, 3375
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Powerful numbers (A001694) that are not perfect squares. - T. D. Noe (noe(AT)sspectra.com), May 03 2006
|
|
|
MATHEMATICA
| Powerful[n_Integer] := (n==1) || Min[Transpose[FactorInteger[n]][[2]]]>1; Select[Range[10000], Powerful[ # ] && !IntegerQ[Sqrt[ # ]]&] - T. D. Noe (noe(AT)sspectra.com), May 03 2006
|
|
|
PROG
| (PARI) omnipnotsq(n, m) = { local(a, x, j, fl=0); for(x=1, n, a=factor(x); for(j=1, omega(x), if(a[j, 2]>= m, fl=1, fl=0; break); ); if(fl&issquare(x)==0, print1(x", ")) ) }
|
|
|
CROSSREFS
| Sequence in context: A070495 A056729 A070265 * A116002 A097054 A056824
Adjacent sequences: A102831 A102832 A102833 * A102835 A102836 A102837
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Feb 27 2005
|
| |
|
|
