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

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..32

Eric Weisstein's World of Mathematics, Power Floors

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

Prog

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

Crossrefs

Sequence in context: A155777 A262839 A234695 * A042993 A308711 A033664

Adjacent sequences: A067902 A067903 A067904 * A067906 A067907 A067908

Keyword

nonn

Author

Benoit Cloitre, Mar 03 2002

Status

approved