%I #46 May 19 2019 19:33:58
%S 15,21,33,35,39,51,55,57,65,69,77,85,87,91,93,95,105,111,115,119,123,
%T 129,133,141,143,145,155,159,161,165,177,183,185,187,195,201,203,205,
%U 209,213,215,217,219,221,231,235,237,247,249,253,255,259,265,267,273
%N Odd squarefree composite numbers.
%C Composite numbers n such that Sum_{k=1..n-1} floor(k^3/n) = (1/4)*(n-2)*(n^2-1) (equality also holds for all primes). - _Benoit Cloitre_, Dec 08 2002
%H Zak Seidov, <a href="/A024556/b024556.txt">Table of n, a(n) for n = 1..11999.</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LehmersConstant.html">Lehmer's Constant</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeSums.html">Prime Sums</a>
%t Complement[Select[Range[3,281,2],SquareFreeQ],Prime[Range[PrimePi[281]]]] (* _Harvey P. Dale_, Jan 26 2011 *)
%o (Haskell)
%o a024556 n = a024556_list !! (n-1)
%o a024556_list = filter ((== 0) . a010051) $ tail a056911_list
%o -- _Reinhard Zumkeller_, Apr 12 2012
%o (PARI) is(n)=n>1&&n%2&&!isprime(n)&&issquarefree(n) \\ _Charles R Greathouse IV_, Apr 12 2012
%o (PARI) forstep(n=3,273,2,k=omega(n);if(k>1&&bigomega(n)==k,print1(n,", "))) \\ _Hugo Pfoertner_, Dec 19 2018
%Y Intersection of A056911 and A071904.
%Y Subsequence of A061346.
%Y Cf. A010051, A046388, A078837.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, May 22 2000
%E More terms from _James A. Sellers_, May 22 2000