A124622 Smallest odd interprime divisible by n-th odd prime.
9, 15, 21, 99, 39, 459, 399, 69, 667, 93, 111, 205, 129, 705, 1113, 885, 915, 2613, 1207, 803, 1817, 747, 1869, 2619, 909, 309, 2247, 7957, 1243, 381, 393, 3699, 2085, 3129, 453, 8635, 489, 501, 16089, 1611, 5249, 9741, 1737, 2955, 2985, 3165, 2007, 19295
Offset: 1
Keywords
Programs
-
Mathematica
f[n_] := Block[{k = 1, c},While[c = (Prime[k + 1] + Prime[k])/2; Mod[c, 2] == 0 || Mod[c, Prime[n + 1]] > 0, k++ ];c];Table[f[n], {n, 50}] (* Ray Chandler, Jan 09 2007 *)
Extensions
Extended by Ray Chandler, Jan 09 2007