|
%I #18 May 19 2019 14:53:31
%S 6,10,12,14,15,18,20,21,22,24,26,28,30,32,33,34,35,38,39,40,42,44,45,
%T 46,48,50,51,52,54,55,56,57,58,60,62,63,65,66,68,69,70,72,74,75,76,77,
%U 78,80,82,84,85,86,87,88,90,91,92,93,94,95,96,98,99,102,104,105,106,108
%N Composite nonsquares and noncubes.
%F a(n) = n + O(n/log n). - _Charles R Greathouse IV_, Oct 19 2015
%t nn=200; Complement[Range[nn], Prime[Range[PrimePi[nn]]], Range[Sqrt[nn]]^2, Range[nn^(1/3)]^3] (* _Harvey P. Dale_, Jan 26 2011 *)
%o (PARI) is(n)=n>1 && !isprime(n) && !issquare(n) && !ispower(n,3) \\ _Charles R Greathouse IV_, Oct 19 2015
%Y Cf. A007774, A024619, A030231, A056760, A064040, A084227, A100658.
%K nonn
%O 1,1
%A _Zak Seidov_, May 03 2005
|
