A090939 Least multiple of n == -1 (mod prime(n)).

1, 2, 9, 20, 10, 12, 84, 56, 45, 260, 154, 36, 286, 42, 375, 688, 884, 792, 133, 780, 1386, 1342, 414, 1512, 775, 1716, 1647, 1176, 435, 1920, 2666, 1440, 2739, 3196, 595, 4680, 5180, 1140, 5343, 6400, 1968, 2352, 6493, 2508, 1575, 8556, 9494, 6912, 4312, 4350

Offset: 1

Author

Amarnath Murthy, Dec 29 2003

Keywords

• nonn

Crossrefs

Cf. A090938.

Programs

Mathematica

m[n_]:=Module[{i=1,p},p=Prime[n];While[Mod[n i,p]!=p-1,i++];i n]
Table[m[i],{i,50}] (* Harvey P. Dale, Nov 19 2010 *)

Extensions

More terms from Ray Chandler, Jan 01 2004