|
Search: id:A102834
|
|
|
| A102834 |
|
Numbers whose factors are primes raised to powers >= 2 and are not perfect squares. |
|
+0
2
|
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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
|
|
PROGRAM
|
(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 this_sequence A116002 A097054 A056824
Adjacent sequences: A102831 A102832 A102833 this_sequence A102835 A102836 A102837
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Cino Hilliard (hillcino368(AT)gmail.com), Feb 27 2005
|
|
|
Search completed in 0.002 seconds
|
