A070759 n for which floor((3/2)^n) is prime.
2, 3, 4, 5, 6, 7, 21, 22, 98, 106, 164, 189, 219, 364, 443, 670, 775, 1919, 2204, 2715, 3692, 4228, 4912, 10466, 12300, 14087, 21659, 28170, 55832, 66577, 87309, 87505, 98144, 167512, 259517
Offset: 1
Keywords
References
- R. K. Guy, Unsolved Problems in Number Theory, E19
Links
- Eric Weisstein's World of Mathematics, Power Floors
Programs
-
Mathematica
Do[ If[ PrimeQ[ Floor[(3/2)^n]], Print[n]], {n, 1, 12500}]
Extensions
One more term from Ralf Stephan, Oct 13 2002
Corrected and extended by Robert G. Wilson v, Jan 15 2003
More terms from Ryan Propper, Jan 25 2008
6 more terms from Ryan Propper, Dec 28 2008
Comments