OFFSET
1,1
REFERENCES
R. K. Guy, Unsolved Problems in Number Theory, E19
LINKS
Robert Israel, Table of n, a(n) for n = 1..5649
Eric Weisstein's World of Mathematics, Power Floors
MAPLE
remove(isprime, [seq(floor((3/2)^n), n=2..100)]); # Robert Israel, Oct 30 2019
MATHEMATICA
Select[Floor[(3/2)^Range[50]], CompositeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 11 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, May 04 2002
STATUS
approved