login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Number of ways to express n as the sum of an odd prime, a Lucas number and a Catalan number.
6

%I #18 Sep 10 2018 14:16:12

%S 0,0,0,0,1,2,3,4,5,5,6,5,5,5,7,7,6,5,9,8,8,9,10,7,9,10,7,9,7,6,7,9,7,

%T 9,11,9,9,8,8,7,7,7,8,8,9,11,10,10,13,12,10,10,10,10,10,14,9,7,11,11,

%U 9,14,12,10,12,13,9,11,8,7,10,12,10,12,12,12,12,11,11,12,8,11,11,14,10,13,10

%N Number of ways to express n as the sum of an odd prime, a Lucas number and a Catalan number.

%C On Jan 16 2009, _Zhi-Wei Sun_ conjectured that a(n)>0 for n=5,6,... and verified this up to 5*10^6. (Sun also thought that lim inf_n a(n)/log(n) is a positive constant.) _D. S. McNeil_ continued the verification up to 10^13 and found no counterexamples. The conjecture is similar to a conjecture of Qing-Hu Hou and Jiang Zeng related to the sequence A154404; both conjectures were motivated by Sun's recent conjecture on sums of primes and Fibonacci numbers (cf. A154257).

%D R. Crocker, On a sum of a prime and two powers of two, Pacific J. Math. 36(1971), 103-107.

%D R. P. Stanley, Enumerative Combinatorics, Vol. II, Cambridge Univ. Press, 1999, Chapter 6.

%H Zhi-Wei Sun, <a href="/A154940/b154940.txt">Table of n, a(n), n=1..100000</a>

%H D. S. McNeil, <a href="https://listserv.nodak.edu/cgi-bin/wa.exe?A2=NMBRTHRY;bda1acb4.081">Sun's strong conjecture</a>

%H Zhi-Wei Sun, <a href="https://listserv.nodak.edu/cgi-bin/wa.exe?A2=NMBRTHRY;6434d742.0812">A promising conjecture: n=p+F_s+F_t</a>

%H Zhi-Wei Sun, <a href="https://listserv.nodak.edu/cgi-bin/wa.exe?A2=NMBRTHRY;65ce2465.0901">Offer prizes for solutions to my main conjectures involving primes</a>

%H Z.-W. Sun and R. Tauraso, <a href="http://arxiv.org/abs/0709.1665">Congruences involving Catalan numbers</a>, arXiv:0709.1665.

%F a(n) = |{<p,s,t>: p+L_s+C_t=n with p an odd prime, s>=0 and t>0}|.

%e For n=10 the a(10)=5 solutions are 3 + L_0 + C_3, 5 + L_2 + C_2, 5 + L_3 + C_1, 7 + L_0 + C_1, 7 + L_1 + C_2.

%t PQ[m_]:=m>2&&PrimeQ[m] L[x_]:=2*Fibonacci[x+1]-Fibonacci[x] RN[n_]:=Sum[If[PQ[n-L[x]-CatalanNumber[y]], 1, 0], {x,0,2*Log[2,n]},{y,1,2*Log[2,Max[2,n-L[x]+1]]}] Do[Print[n, " ",RN[n]]; Continue, {n, 1, 100000}]

%Y A000040, A000032, A000108, A154257, A154285, A154290, A154404, A154536, A156695.

%K nonn

%O 1,6

%A _Zhi-Wei Sun_, Jan 17 2009

%E More terms (from b-file) added by _N. J. A. Sloane_, Aug 31 2009