OFFSET
1,1
LINKS
Felix Fröhlich, Table of n, a(n) for n = 1..2165 (all terms up to 10^7)
EXAMPLE
The first three Poulet numbers (2-pseudoprimes) are 341 = 11*31, 561 = 3*11*17, and 645 = 3*5*43, so the sequence begins:
11, 31;
3, 11, 17;
3, 5, 43;
etc.
PROG
(PARI) forcomposite(n=1, 1e4, if(Mod(2, n)^(n-1)==1, f=factor(n)[, 1]; for(i=1, #f, print1(f[i], ", "))))
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Felix Fröhlich, Aug 16 2014
STATUS
approved