cp's OEIS Frontend

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.

A072569 Odd interprimes.

This page as a plain text file.
%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