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 A060254 #15 Jan 12 2019 16:06:42 %S A060254 17,19,29,31,41,43,53,67,71,79,89,97,101,103,109,113,127,131,137,139, %T A060254 149,151,163,173,181,191,197,199,211,223,229,233,239,241,251,257,269, %U A060254 271,281,283,293,307,311,317,331,337,349,353,367,373,379,389,401,409 %N A060254 Primes which are the sum of two consecutive composite numbers. %C A060254 For the smaller of the consecutive composite pair (p-+1)/2, see A096784 %C A060254 This sequence also contains exactly those odd primes p where neither p-1 nor p+1 is the product of exactly 2 (not necessarily distinct) primes. - _Leroy Quet_, Sep 09 2008 %C A060254 5 together with the prime numbers A060254=(5,17,19,29,31,41,43,53,..)=primes which are the sum of two consecutive nonprime numbers. - _Juri-Stepan Gerasimov_, Aug 30 2009 %C A060254 Conjecture: a(n) ~ n log n. - _Charles R Greathouse IV_, Apr 29 2015 %H A060254 Charles R Greathouse IV, <a href="/A060254/b060254.txt">Table of n, a(n) for n = 1..10000</a> %e A060254 The prime 19 is an entry since it is the sum of 9=3^2 and 10=2*5. %t A060254 2Select[ Range[210], PrimeQ[ # ] == PrimeQ[ # + 1] == False && PrimeQ[2# + 1] == True &] + 1 %t A060254 Select[Total/@Partition[Select[Range[300],CompositeQ],2,1],PrimeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 12 2019 *) %o A060254 (PARI) is(n)=!isprime(n\2) && !isprime(n\2+1) && isprime(n) \\ _Charles R Greathouse IV_, Apr 29 2015 %Y A060254 Cf. A096783, A096784, A096785, A096786, A096787, A096788, A096677. %K A060254 nonn %O A060254 1,1 %A A060254 _Robert G. Wilson v_, Mar 22 2001