OFFSET
1,1
COMMENTS
Conjecture: The sequence has infinitely many terms.
This follows from the conjecture in A233359.
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..270
EXAMPLE
a(1) = 2 since L(1) + q(1) = 1 + 1 = 2.
a(2) = 3 since L(1) + q(3) = 1 + 2 = 3.
a(3) = 5 since L(2) + q(3) = 3 + 2 = 5.
MATHEMATICA
n=0
Do[Do[If[LucasL[j]>=Prime[m], Goto[aa],
Do[If[PartitionsQ[k]==Prime[m]-LucasL[j],
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])}]];
Label[bb]; Continue, {j, 1, 2*Log[2, Prime[m]]}];
Label[aa]; Continue, {m, 1, 125}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Dec 08 2013
STATUS
approved