A073604 Smallest multiple of (n+1)-st prime which is == 1 mod n-th prime.

3, 10, 21, 22, 78, 170, 171, 115, 116, 465, 962, 1148, 903, 517, 424, 531, 1830, 3417, 1207, 2628, 4819, 1660, 1246, 7566, 7373, 5253, 2782, 5886, 9266, 13335, 4192, 3014, 9591, 2086, 11325, 19782, 21353, 6847, 4844, 5191, 16290, 31133, 18528

Offset

1,1

Links

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

Example

a(5) = 78 which is 6*13 and 78 ==1 (mod 11).

Mathematica

f[n_] := Block[{k = 1, p = Prime[n], q = Prime[n + 1]}, While[ Mod[k*q, p] != 1, k++ ]; k*q]; Table[f[n], {n, 1, 45}]

Crossrefs

Sequence in context: A306813 A092305 A196166 * A370032 A210990 A004194

Adjacent sequences: A073601 A073602 A073603 * A073605 A073606 A073607

Keyword

nonn

Author

Amarnath Murthy, Aug 04 2002

Extensions

Edited by Robert G. Wilson v, Aug 05 2002

Status

approved