A067909 Primes of the form floor((8/7)^k).
2, 3, 5, 7, 11, 71, 107, 139, 311, 607, 2309, 5881, 7681, 8779, 56929, 74357, 84979, 4667387, 5334157, 20276141, 26483123, 2171218163, 10779703787, 9776786310757, 48539968117013, 108156137341297
Offset: 1
Keywords
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..57
Programs
-
Mathematica
Union[Select[Floor[(8/7)^Range[300]],PrimeQ]] (* Harvey P. Dale, Feb 02 2011 *)
-
PARI
for(n=1, 15157, if(ispseudoprime(t=(n)->floor((8/7)^n)), print1(t", "))); v \\ Charles R Greathouse IV, Feb 17 2011