A070762 n for which floor((4/3)^n) is prime.

3, 4, 6, 7, 9, 10, 11, 12, 38, 42, 59, 96, 154, 171, 211, 313, 465, 563, 1040, 1176, 1213, 1431, 1519, 1987, 2527, 3033, 4039, 4209, 4358, 5109, 5251, 6642, 19200, 25275, 42589, 43025, 49294, 58585, 66290, 77458, 80409, 86533, 94192, 110452, 115166, 124470

Offset

1,1

References

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

Links

Giovanni Resta, Table of n, a(n) for n = 1..53 (terms < 400000)

Eric Weisstein's World of Mathematics, Power Floors

Mathematica

Do[ If[ PrimeQ[ Floor[(4/3)^n]], Print[n]], {n, 1, 17500}]
Select[Range[7000], PrimeQ[Floor[(4/3)^#]]&] (* The program generates the first 32 terms of the sequence. *) (* Harvey P. Dale, Oct 02 2024 *)

Crossrefs

Cf. A046038, A067905, A070761, A070759.

Sequence in context: A087753 A233334 A320300 * A061208 A325439 A183860

Adjacent sequences: A070759 A070760 A070761 * A070763 A070764 A070765

Keyword

nonn

Author

Eric W. Weisstein, May 04 2002

Extensions

Corrected by Robert G. Wilson v, Jan 15 2003

More terms from Ryan Propper, Jan 25 2008

Status

approved