|
%I #10 Mar 14 2021 13:49:24
%S 99,165,231,363,473,495,759,803,825,1089,1243,1485,1551,2277,2453,
%T 2475,2541,2585,2783,3399,3465,3531,3795,4521,4587,4697,4785,4807,
%U 5093,5203,5577,5841,6831,7007,7315,7381,7425,7689,7755,8437,8635,8679,8855,8877
%N Odd interprimes divisible by 11.
%H Amiram Eldar, <a href="/A126230/b126230.txt">Table of n, a(n) for n = 1..10000</a>
%t Do[If[OddQ[(Prime[n + 1] + Prime[n])/2] && Mod[(Prime[n + 1] + Prime[n])/2, 11] == 0, Print[(Prime[n + 1] + Prime[n])/2]], {n, 1, 3000}]
%t Select[Mean/@Partition[Prime[Range[2,2000]],2,1],OddQ[#]&&Divisible[#,11]&] (* _Harvey P. Dale_, Mar 14 2021 *)
%Y Cf. A072569, A072572, A072573, A126228, A126229, A124619, A124620, A126231, A124622, A126233.
%K nonn
%O 1,1
%A _Artur Jasinski_, Dec 21 2006
|
