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