|
|
A067909
|
|
Primes of the form floor((8/7)^k).
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Union[Select[Floor[(8/7)^Range[300]], PrimeQ]] (* Harvey P. Dale, Feb 02 2011 *)
|
|
PROG
|
(PARI) for(n=1, 15157, if(ispseudoprime(t=(n)->floor((8/7)^n)), print1(t", "))); v \\ Charles R Greathouse IV, Feb 17 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|