A067905 Primes of the form floor((4/3)^k).

2, 3, 5, 7, 13, 17, 23, 31, 55933, 176777, 23517191, 986549121979, 17400648639910404101, 2314855893053257675837, 230183094544225348379651767, 1275923270962002367060689449590920800609

Offset: 1

Author

Benoit Cloitre, Mar 03 2002

Keywords

• nonn

Links

• Charles R Greathouse IV, Table of n, a(n) for n = 1..32
• Eric Weisstein's World of Mathematics, Power Floors

Programs

Mathematica

f[n_]:=Floor[(4/3)^n]; lst={};Do[p=f[n];If[PrimeQ[p],AppendTo[lst,p]],{n,0,6!}];lst (* Vladimir Joseph Stephan Orlovsky, Jul 02 2009 *)
Select[Floor[(4/3)^Range[330]],PrimeQ] (* Harvey P. Dale, Dec 12 2018 *)

PARI

v=[]; for(k=2,8004, if(ispseudoprime(t=floor((4/3)^k)), v=concat(v,t))); v