OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..70
MATHEMATICA
Union[Select[Floor/@((9/8)^Range[250]), PrimeQ]] (* Harvey P. Dale, Feb 19 2011 *)
PROG
(PARI) for(n=1, 18315, if(ispseudoprime(t=floor((9/8)^n)), print1(t", "))); v \\ Charles R Greathouse IV, Feb 17 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Mar 03 2002
STATUS
approved