OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..31
MATHEMATICA
Union[Select[Floor[(5/4)^Range[0, 400]], PrimeQ]] (* Harvey P. Dale, Jan 06 2012 *)
PROG
(PARI) for(n=1, 1e4, if(ispseudoprime(t=floor((5/4)^n)), print1(t", "))) \\ Charles R Greathouse IV, Feb 17 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Mar 03 2002
STATUS
approved