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 A113115 #16 Sep 08 2022 08:45:23 %S A113115 3,13,37,43,61,103,127,157,181,223,241,283,313,373,421,463,523,541, %T A113115 577,607,631,661,673,787,811,853,883,1021,1087,1093,1153,1231,1237, %U A113115 1297,1303,1531,1567,1741,1753,1777,1783,1867,2113,2131,2143,2161 %N A113115 Primes p such that 17*p + 2 is also prime. %C A113115 Intersection of A000040 and A113487. - _Iain Fox_, Feb 27 2018 %H A113115 Iain Fox, <a href="/A113115/b113115.txt">Table of n, a(n) for n = 1..10000</a> %e A113115 If p=223 then 17*p + 2 = 3793 (prime). %t A113115 Select[Prime[Range[400]],PrimeQ[17#+2]&] (* _Harvey P. Dale_, Jul 17 2021 *) %o A113115 (Magma) [p: p in PrimesUpTo(3000)| IsPrime(17*p+2)] // _Vincenzo Librandi_, Jan 29 2011 %o A113115 (PARI) lista(nn) = forprime(p=3, nn, if(isprime(17*p + 2), print1(p, ", "))) \\ _Iain Fox_, Feb 27 2018 %Y A113115 Cf. A112391, A113487. %K A113115 nonn %O A113115 1,1 %A A113115 _Parthasarathy Nambi_, Jan 03 2006