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.

A124619 Odd interprimes divisible by 13.

This page as a plain text file.
%I A124619 #14 Mar 23 2020 04:07:30
%S A124619 39,195,351,741,897,1313,1443,1599,2379,2405,2535,2613,2691,2847,3055,
%T A124619 3081,3627,3705,4641,4771,5031,5577,5655,5889,5967,6045,6201,6409,
%U A124619 6825,6877,6903,7007,7033,7605,7943,8437,8541,8931,8957,9009,9035,9321,9607
%N A124619 Odd interprimes divisible by 13.
%H A124619 Amiram Eldar, <a href="/A124619/b124619.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harvey P. Dale)
%t A124619 Do[If[OddQ[(Prime[n + 1] + Prime[n])/2] && Mod[(Prime[n + 1] + Prime[n])/2, 13] == 0, Print[(Prime[n + 1] + Prime[n])/2]], {n, 1, 3000}] (*Artur Jasinski*)
%t A124619 Select[(Total/@Partition[Prime[Range[1200]],2,1])/2,OddQ[#]&&Mod[#,13] == 0&] (* _Harvey P. Dale_, May 23 2019 *)
%Y A124619 Cf. A072569, A072572, A072573, A126228, A126229, A126230, A124620, A126231, A124622, A126233.
%K A124619 nonn
%O A124619 1,1
%A A124619 _Artur Jasinski_, Dec 21 2006
%E A124619 Extended by _Ray Chandler_, Jan 09 2007