OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..57
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
Benoit Cloitre, Mar 03 2002
STATUS
approved