%I #9 Sep 23 2014 10:57:07
%S 8,9,10,11,12,13,14,15,16,17,18,19,20,23,24,25,26,27,28,29,30,31,32,
%T 33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,
%U 56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78
%N Numbers n for which floor((3/2)^n) is composite.
%D R. K. Guy, Unsolved Problems in Number Theory, E19.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FloorFunction.html">Floor Function</a>
%t Select[Range[100],CompositeQ[Floor[(3/2)^#]]&] (* _Harvey P. Dale_, Sep 23 2014 *)
%o (PARI) is(n)=n>7&&!isprime(floor(1.5^n)) \\ _Charles R Greathouse IV_, Oct 27 2011
%K nonn
%O 1,1
%A _Eric W. Weisstein_
|