|
|
A300327
|
|
Poulet numbers (Fermat pseudoprimes to base 2) with a record number of divisors that are also Poulet numbers.
|
|
2
|
|
|
341, 13981, 126217, 294409, 2113665, 4670029, 127479097, 140996401, 509033161, 8600780461, 42625846021, 220411358713, 2382784226641, 11361630988981, 56308742593741, 431283945022021, 434124350060401, 2056455209005561, 5598600634063801, 8178192276975721
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The number of divisors is 1, 2, 3, 4, 5, 6, 7, 8, 13, 15, 16, 20, 23, ...
|
|
LINKS
|
|
|
EXAMPLE
|
294409 is in the sequence since it is a Poulet number, and 4 of its divisors are also Poulet numbers (2701, 4033, 7957, 294409), more than for any smaller Poulet number.
|
|
PROG
|
(PARI) isP(n) = {Mod(2, n)^n==2 & !isprime(n) & n>1};
lista(nn) = {rec = 0; for (n=1, nn, if (isP(n), nb = sumdiv(n, d, isP(d)); if (nb > rec, print1(n, ", "); rec = nb); ); ); } \\ Michel Marcus, Mar 07 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|