Differences between the terms in the n-th row of S000986.
17, 3, 25, 17, 1, 38, 2, 13, 2, 38, 1, 15, 45, 49, 45, 17, 23, 24, 18, 15, 8, 25, 8, 15, 18, 24, 23, 71, 30, 31, 40, 15, 7, 9, 69, 9, 7, 15, 40, 31, 30, 9, 24, 48, 10, 41, 21, 22, 10, 30, 89, 30, 10, 22, 21, 41, 10, 48, 24, 5, 22, 6, 2, 30, 79, 19, 26, 19, 98, 26
3
Compare with S000983.
T. D. Noe, Plot of rows 3..50
T. D. Noe, Table of rows 3..50
(Mma) t8 = {}; Do[s = Select[Range[2, p^2 - p], Mod[PowerMod[#, #, p] + (-1)^# PowerMod[# - 1, # - 1, p], p] == 0 &]; If[p^2 - p + s[[1]] > s[[-1]], AppendTo[s, p^2 - p + s[[1]]]]; AppendTo[t8, Differences[s]], {p, Prime[Range[3, 10]]}]; t8
Cf. S000983.
nonn
T. D. Noe, Mar 21 2017