A372905 Number of solutions for A330279 (numbers k such that x^k == k (mod k + 1) has multiple solutions for 0 <= x < k).

2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 2, 4, 4, 8, 2, 2, 6, 2, 2, 4, 2, 10, 2, 14, 2, 2, 2, 2, 2, 6, 8, 4, 8, 2, 4, 2, 2, 2, 4, 2, 2, 2, 2, 2, 14, 4, 2, 2, 26, 2, 6, 2, 2, 2, 2, 4, 2, 14, 2, 6, 2, 2, 4, 2, 2, 2, 2, 2, 2, 2, 4, 8, 38, 2, 2, 2, 10, 2, 4, 2, 2, 10, 4, 2

Offset

1,1

Links

Table of n, a(n) for n=1..84.

Mathematica

Select[Table[Count[Table[PowerMod[x, k, k + 1], {x, 1, k - 1}], k], {k, 1, 813}], # >= 2 &]

Crossrefs

Cf. A330279.

Sequence in context: A289827 A092188 A340675 * A356497 A097884 A094818

Adjacent sequences: A372902 A372903 A372904 * A372906 A372907 A372908

Keyword

nonn

Author

Robert P. P. McKone, May 16 2024

Status

approved