OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..43
MATHEMATICA
Select[Floor[(6/5)^Range[500]], PrimeQ]//Union (* Harvey P. Dale, Mar 09 2025 *)
PROG
(PARI) v=vector(43); i=0; for(n=1, 12629, if(ispseudoprime(t=floor((6/5)^n)), v[i++]=t)); v \\ Charles R Greathouse IV, Feb 17 2011
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Benoit Cloitre, Mar 03 2002
STATUS
approved