A070758 Values of floor((3/2)^n) that are composite.
25, 38, 57, 86, 129, 194, 291, 437, 656, 985, 1477, 2216, 3325, 11222, 16834, 25251, 37876, 56815, 85222, 127834, 191751, 287626, 431439, 647159, 970739, 1456109, 2184164, 3276246, 4914369, 7371554, 11057332, 16585998, 24878997, 37318496
Offset: 1
Keywords
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
Programs
-
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 *)