Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 May 22 2015 03:48:52
%S 0,0,0,0,0,1,1,0,1,0,1,0,0,0,1,0,1,0,0,0,1,0,1,0,0,0,2,1,0,1,0,1,1,0,
%T 1,1,0,1,0,0,1,1,0,1,1,0,1,1,0,0,2,1,0,2,0,2,1,0,0,1,0,2,1,0,1,2,0,2,
%U 0,0,1,2,0,0,1,0,1,2,0,1,0,0,1,1,0,2,1,0,0,1,0,2,1,0,0,2,0,1,0,0
%N Number of ways to write n as p^2 + q with p, q and 2*p + 3 all prime.
%C Conjecture: For any integer n > 0, we have a(n+r) > 0 for some r = 0,1,2,3,4,5.
%C We have verified this for n up to 10^8. See also A258139 for a weaker version of this conjecture.
%C The conjecture is somewhat similar to Goldbach's Conjecture. It implies that there are infinitely many primes p with 2*p + 3 prime.
%H Zhi-Wei Sun, <a href="/A258141/b258141.txt">Table of n, a(n) for n = 1..10000</a>
%e a(11) = 1 since 11 = 2^2 + 7 with 2, 7 and 2*2 + 3 all prime.
%t Do[r=0;Do[If[PrimeQ[2Prime[k]+3]&&PrimeQ[n-Prime[k]^2],r=r+1],{k,1,PrimePi[Sqrt[n]]}];Print[n," ",r];Continue,{n,1,100}]
%Y Cf. A000040, A002375, A023204, A258139, A258140.
%K nonn
%O 1,27
%A _Zhi-Wei Sun_, May 22 2015