This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A072569 #18 Feb 16 2025 08:32:46 %S A072569 9,15,21,39,45,69,81,93,99,105,111,129,165,195,205,217,225,231,279, %T A072569 309,315,351,363,381,393,399,405,441,453,459,465,473,483,489,495,501, %U A072569 515,615,625,645,667,675,687,705,723,741,747,759,765,771,803,825,855,861 %N A072569 Odd interprimes. %C A072569 The interprimes (A024675) are those integers that lie at the midpoint between consecutive odd primes. %H A072569 Harvey P. Dale, <a href="/A072569/b072569.txt">Table of n, a(n) for n = 1..1000</a> %H A072569 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Interprime.html">Interprime</a> %t A072569 a = Table[ Prime[n], {n, 2, 200}]; b = {}; Do[d = (a[[n + 1]] - a[[n]])/2; If[ OddQ[ a[[n]] + d], b = Append[b, a[[n]] + d]], {n, 1, 198}]; b %t A072569 Select[Plus @@@ Partition[Table[Prime[n], {n, 2, 100}], 2, 1]/2, OddQ] %t A072569 Select[Mean/@Partition[Prime[Range[2,200]],2,1],OddQ] (* _Harvey P. Dale_, Jan 22 2019 *) %Y A072569 Odd members of A024675. Sequence is union of A072572 and A072573. %Y A072569 Cf. A024675, A072568. %K A072569 nonn %O A072569 1,1 %A A072569 _Marco Matosic_, Jun 24 2002 %E A072569 Edited by _N. J. A. Sloane_ and _Robert G. Wilson v_, Jun 27 2002