%I #15 Jun 12 2024 01:16:19

%S 25,38,57,86,129,194,291,437,656,985,1477,2216,3325,11222,16834,25251,

%T 37876,56815,85222,127834,191751,287626,431439,647159,970739,1456109,

%U 2184164,3276246,4914369,7371554,11057332,16585998,24878997,37318496

%N Values of floor((3/2)^n) that are composite.

%D R. K. Guy, Unsolved Problems in Number Theory, E19

%H Robert Israel, <a href="/A070758/b070758.txt">Table of n, a(n) for n = 1..5649</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PowerFloors.html">Power Floors</a>

%p remove(isprime, [seq(floor((3/2)^n),n=2..100)]); # _Robert Israel_, Oct 30 2019

%t Select[Floor[(3/2)^Range[50]],CompositeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 11 2017 *)

%Y Cf. A070759, A067904.

%Y Composites in A002379.

%K nonn

%O 1,1

%A _Eric W. Weisstein_, May 04 2002