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,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

Cf. A043037, A070759, A067904.

Sequence in context: A120148 A038516 A080386 * A104667 A354722 A354723

Adjacent sequences: A070755 A070756 A070757 * A070759 A070760 A070761

Keyword

nonn

Author

Eric W. Weisstein, May 04 2002

Status

approved