login
This site is supported by donations to The OEIS Foundation.

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A172419 Numbers c which have measure of smoothness J bigger than 4. Where J=Log[c]/Log[N(c)], where N(c) is product of distinct prime divisors of c 3

%I

%S 32,64,128,243,256,512,729,1024,1458,1536,1728,1944,2048,2187,2304,

%T 2592,2916,3072,3125,3456,3888,4096,4374,4608,5184,5832,6144,6561,

%U 6912,7776,8192,8748,9216,10240,10368,11664,12288,12500,12800,13122,13824,15552

%N Numbers c which have measure of smoothness J bigger than 4. Where J=Log[c]/Log[N(c)], where N(c) is product of distinct prime divisors of c

%C This sequence is subset of A049094 and A172418.

%p aa = {}; Do[kk = FactorInteger[c]; nn = 1; Do[nn = nn*kk[[n]][[1]], {n, 1, Length[kk]}]; If[Log[c]/Log[nn] > 4, AppendTo[aa, c]], {c, 2, 10000}]; aa (*Artur Jasinski*)

%Y A049094, A172418-A172422.

%K nonn

%O 1,1

%A _Artur Jasinski_, Feb 02 2010

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified July 22 22:03 EDT 2014. Contains 244844 sequences.