OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Fermat Pseudoprime
PROG
(PARI) list(lim)=my(v=List(), n); lim\=1; forstep(k=27, sqrtint(8*lim+1), 2, n=k^2>>3; if(Mod(3, n)^(n-1)==1, listput(v, n))); Vec(v) \\ Charles R Greathouse IV, Jun 30 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Marius Coman, Oct 12 2012
EXTENSIONS
a(15)-a(18) and a(35) from Charles R Greathouse IV, Jun 30 2017
STATUS
approved