|
| |
|
|
A211455
|
|
The number of bases b for which A181780(n) is a Fermat pseudoprime.
|
|
5
|
|
|
|
2, 2, 2, 2, 2, 2, 2, 6, 4, 2, 2, 2, 2, 2, 14, 4, 2, 2, 2, 2, 2, 14, 2, 34, 2, 2, 2, 14, 2, 2, 2, 6, 2, 8, 2, 2, 2, 2, 2, 34, 2, 2, 2, 14, 2, 2, 14, 2, 2, 2, 2, 14, 10, 2, 2, 10, 4, 2, 2, 14, 4, 2, 2, 8, 6, 2, 2, 2, 14, 2, 2, 2, 2, 2, 34, 2, 14, 6, 38, 6, 2, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
Sequences A211456 and A211457 give the smallest and largest bases b; A211458 lists all bases.
|
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n = 1..10000
|
|
|
MATHEMATICA
|
t = {}; n = 1; While[Length[t] < 100, n++; If[! PrimeQ[n], s = Select[Range[2, n-2], PowerMod[#, n-1, n] == 1 &]; If[s != {}, AppendTo[t, {n, Length[s], s}]]]]; Transpose[t][[2]]
|
|
|
CROSSREFS
|
Cf. A181780, A211456, A211457, A211458.
Sequence in context: A105267 A008838 A063790 * A214079 A202742 A109913
Adjacent sequences: A211452 A211453 A211454 * A211456 A211457 A211458
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
T. D. Noe, Apr 13 2012
|
|
|
STATUS
|
approved
|
| |
|
|
