|
%I #7 Oct 11 2019 11:00:51
%S 9,15,21,99,39,459,399,69,667,93,111,205,129,705,1113,885,915,2613,
%T 1207,803,1817,747,1869,2619,909,309,2247,7957,1243,381,393,3699,2085,
%U 3129,453,8635,489,501,16089,1611,5249,9741,1737,2955,2985,3165,2007,19295
%N Smallest odd interprime divisible by n-th odd prime.
%F a(n) = (prime(A126233(n)+1) + prime(A126233(n)))/2.
%t 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 *)
%Y Cf. A072569, A072572, A072573, A126228, A126229, A126230, A124619, A124620, A126231.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 21 2006
%E Extended by _Ray Chandler_, Jan 09 2007
|
