|
| |
|
|
A083876
|
|
Least pseudoprime to base 2 through base p_n, where p is the n-th prime.
|
|
0
| |
|
|
341, 1105, 1729, 29341, 29341, 162401, 252601, 252601, 252601, 252601, 252601, 252601, 1152271, 2508013, 2508013, 3828001, 3828001, 3828001, 3828001, 3828001, 3828001, 3828001, 3828001, 3828001, 3828001, 6733693, 6733693, 6733693
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| k = 4; Do[l = Table[ Prime[i], {i, 1, n}]; While[ PrimeQ[k] || Union[PowerMod[l, k - 1, k]] != {1}, k++ ]; Print[k], {n, 1, 29}]
|
|
|
CROSSREFS
| Cf. A001567, A052155, A083737, A083739.
Sequence in context: A172255 A087835 A066488 * A068216 A038473 A050217
Adjacent sequences: A083873 A083874 A083875 * A083877 A083878 A083879
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), May 06 2003
|
| |
|
|
