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

Author

Eric W. Weisstein, May 04 2002

Keywords

• nonn

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

Crossrefs

Cf. A046038, A067905, A070761, A070759.

Programs

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 *)

Extensions

Corrected by Robert G. Wilson v, Jan 15 2003

More terms from Ryan Propper, Jan 25 2008