|
Search: id:A083876
|
|
|
| A083876 |
|
Least pseudoprime to base 2 through base p_n, where p is the n-th prime. |
|
+0
1
|
|
| 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; listen)
|
|
|
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: A153508 A087835 A066488 this_sequence A068216 A038473 A050217
Adjacent sequences: A083873 A083874 A083875 this_sequence A083877 A083878 A083879
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 06 2003
|
|
|
Search completed in 0.002 seconds
|
