A391871 - OEIS

A391871

Indices of records in A210693.

1, 2, 12, 21, 24, 27, 71, 407, 425, 447, 567, 1073, 1151, 1643, 2729, 3947, 5277, 5393, 9665, 14123, 17309, 21827, 28551, 30113, 33633, 42749, 45737, 50177, 75755, 83213, 126737, 145577, 168011, 172593, 251231, 281765, 334715, 408749, 483539, 523005, 542297, 672461

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

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

FORMULA

A210693(a(n)) = A391870(n).

MATHEMATICA

A210693[n_] := Module[{k = 0}, While[++k == n || PowerMod[n, k, 2*k + 1] != PowerMod[k, n, #]] & [2*n + 1]; k];

Module[{rec = 0}, Table[If[# > rec, rec = #; m, Nothing] & [A210693[m]], {m, 10000}]]

CROSSREFS

Cf. A210693, A391870.