|
%I #7 Dec 08 2013 09:31:59
%S 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,79,83,101,
%T 103,107,127,131,149,151,193,199,211,223,227,229,233,239,241,251,257,
%U 263,269,307,337,347,349,379,397,401,419,421,449,463,487,523,541,571,643,647,661
%N Primes of the form L(k) + q(m) with k > 0 and m > 0, where L(k) is the k-th Lucas number (A000204), and q(.) is the strict partition function (A000009).
%C Conjecture: The sequence has infinitely many terms.
%C This follows from the conjecture in A233359.
%H Zhi-Wei Sun, <a href="/A233360/b233360.txt">Table of n, a(n) for n = 1..270</a>
%e a(1) = 2 since L(1) + q(1) = 1 + 1 = 2.
%e a(2) = 3 since L(1) + q(3) = 1 + 2 = 3.
%e a(3) = 5 since L(2) + q(3) = 3 + 2 = 5.
%t n=0
%t Do[Do[If[LucasL[j]>=Prime[m],Goto[aa],
%t Do[If[PartitionsQ[k]==Prime[m]-LucasL[j],
%t n=n+1;Print[n," ",Prime[m]];Goto[aa]];If[PartitionsQ[k]>Prime[m]-LucasL[j],Goto[bb]];Continue,{k,1,2*(Prime[m]-LucasL[j])}]];
%t Label[bb];Continue,{j,1,2*Log[2,Prime[m]]}];
%t Label[aa];Continue,{m,1,125}]
%Y Cf. A000009, A000040, A000032, A000204, A232504, A233307, A233346, A233359.
%K nonn
%O 1,1
%A _Zhi-Wei Sun_, Dec 08 2013
|
