login
A126230
Odd interprimes divisible by 11.
8
99, 165, 231, 363, 473, 495, 759, 803, 825, 1089, 1243, 1485, 1551, 2277, 2453, 2475, 2541, 2585, 2783, 3399, 3465, 3531, 3795, 4521, 4587, 4697, 4785, 4807, 5093, 5203, 5577, 5841, 6831, 7007, 7315, 7381, 7425, 7689, 7755, 8437, 8635, 8679, 8855, 8877
OFFSET
1,1
LINKS
MATHEMATICA
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}]
Select[Mean/@Partition[Prime[Range[2, 2000]], 2, 1], OddQ[#]&&Divisible[#, 11]&] (* Harvey P. Dale, Mar 14 2021 *)
KEYWORD
nonn
AUTHOR
Artur Jasinski, Dec 21 2006
STATUS
approved