OFFSET
1,1
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
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Aug 04 2002
EXTENSIONS
Edited by Robert G. Wilson v, Aug 05 2002
STATUS
approved