cp's OEIS Frontend

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.

Showing 1-6 of 6 results.

A154404 Number of ways to express n as the sum of an odd prime, a positive Fibonacci number and a Catalan number.

Original entry on oeis.org

0, 0, 0, 0, 1, 2, 3, 3, 5, 5, 5, 4, 6, 5, 6, 5, 7, 6, 6, 9, 9, 8, 8, 6, 8, 10, 9, 6, 9, 7, 5, 8, 10, 8, 8, 7, 6, 9, 9, 8, 8, 7, 6, 9, 9, 13, 10, 9, 8, 12, 10, 10, 10, 9, 9, 11, 9, 11, 9, 10, 8, 11, 13, 11, 10, 12, 11, 11, 10, 10, 7, 8, 10, 14, 10, 16, 11, 9, 11, 11, 10, 12, 10, 7, 9, 16, 10, 12
Offset: 1

Views

Author

Qing-Hu Hou (hou(AT)nankai.edu.cn), Jan 09 2009, Jan 18 2009

Keywords

Comments

Motivated by Zhi-Wei Sun's conjecture that each integer n>4 can be expressed as the sum of an odd prime, an odd Fibonacci number and a positive Fibonacci number (cf. A154257), during their visit to Nanjing Univ. Qing-Hu Hou (Nankai Univ.) and Jiang Zeng (Univ. of Lyon-I) conjectured on Jan 09 2009 that a(n)>0 for every n=5,6,.... and verified this up to 5*10^8. D. S. McNeil has verified the conjecture up to 5*10^13 and Hou and Zeng have offered prizes for settling their conjecture (see Sun 2009).

Examples

			For n=7 the a(7)=3 solutions are 3+2+2, 3+3+1, 5+1+1.
		

References

  • R. Crocker, On a sum of a prime and two powers of two, Pacific J. Math. 36(1971), 103-107.
  • R. P. Stanley, Enumerative Combinatorics, Vol. II, Cambridge Univ. Press, 1999, Chapter 6.

Crossrefs

Programs

  • Maple
    Cata:=proc(n) binomial(2*n,n)/(n+1); end proc: Fibo:=proc(n) if n=1 then return(1); elif n=2 then return(2); else return(Fibo(n-1) + Fibo(n-2)); fi; end proc: for n from 1 to 10^3 do rep_num:=0; for i from 1 while Fibo(i) < n do for j from 1 while Fibo(i)+Cata(j) < n do p:=n-Fibo(i)-Cata(j); if (p>2) and isprime(p) then rep_num:=rep_num+1; fi; od; od; printf("%d %d\n", n, rep_num); od:
  • Mathematica
    a[n_] := (pp = {}; p = 2; While[ Prime[p] < n, AppendTo[pp, Prime[p++]] ]; ff = {}; f = 2; While[ Fibonacci[f] < n, AppendTo[ff, Fibonacci[f++]]]; cc = {}; c = 1; While[ CatalanNumber[c] < n, AppendTo[cc, CatalanNumber[c++]]]; Count[Outer[Plus, pp, ff, cc], n, 3]); Table[a[n], {n, 1, 88}] (* Jean-François Alcover, Nov 22 2011 *)
  • PARI
    a(n)=my(i=1,j,f,c,t,s);while((f=fibonacci(i++))Charles R Greathouse IV, Nov 22 2011

Formula

a(n) = |{: p+F_s+C_t=n with p an odd prime and s>1}|.

Extensions

More terms from Jon E. Schoenfield, Jan 17 2009
Added the new verification record and Hou and Zeng's prize for settling the conjecture. Edited by Zhi-Wei Sun, Feb 01 2009
Comment edited by Charles R Greathouse IV, Oct 28 2009

A155114 Number of ways to express n as the sum of an odd prime, a positive Fibonacci number and twice a positive Fibonacci number.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 1, 3, 2, 6, 3, 7, 3, 8, 5, 8, 6, 10, 5, 11, 6, 13, 7, 13, 7, 14, 5, 14, 7, 15, 8, 14, 4, 18, 8, 17, 7, 15, 5, 15, 11, 16, 8, 15, 7, 17, 12, 19, 10, 20, 10, 17, 10, 17, 13, 15, 11, 18, 8, 20, 10, 17, 9, 18, 11, 21, 11, 21, 7, 20, 11, 18, 11, 22, 9, 25, 11, 24, 13, 19, 14, 20, 11
Offset: 1

Views

Author

Zhi-Wei Sun, Jan 20 2009

Keywords

Comments

Motivated by his conjecture related to A154257, on Dec 26 2008, Zhi-Wei Sun conjectured that a(n)>0 for n=6,7,... On Jan 15 2009, D. S. McNeil verified this up to 10^12 and found no counterexamples. See the sequence A154536 for another conjecture of this sort. Sun also conjectured that any integer n>7 can be written as the sum of an odd prime, twice a positive Fibonacci number and the square of a positive Fibonacci number; this has been verified up to 2*10^8.

Examples

			For n=10 the a(10)=6 solutions are 3 + F_4 + 2F_3, 3 + F_5 + 2F_2, 3 + F_2 + 2F_4, 5 + F_2 + 2F_3, 5 + F_4 + 2F_2, 7 + F_2 + 2F_2.
		

References

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

Crossrefs

Programs

  • Mathematica
    PQ[m_]:=m>2&&PrimeQ[m] RN[n_]:=Sum[If[PQ[n-2*Fibonacci[x]-Fibonacci[y]],1,0], {x,2,2*Log[2,Max[2,n/2]]},{y,2,2*Log[2,Max[2,n-2*Fibonacci[x]]]}] Do[Print[n," ",RN[n]];Continue,{n,1,100000}]

Formula

a(n) = |{: p+F_s+2F_t=n with p an odd prime and s,t>1}|.

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

Original entry on oeis.org

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, 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, 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
Offset: 1

Views

Author

Zhi-Wei Sun, Jan 17 2009

Keywords

Comments

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).

Examples

			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.
		

References

  • R. Crocker, On a sum of a prime and two powers of two, Pacific J. Math. 36(1971), 103-107.
  • R. P. Stanley, Enumerative Combinatorics, Vol. II, Cambridge Univ. Press, 1999, Chapter 6.

Crossrefs

Programs

  • Mathematica
    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}]

Formula

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

Extensions

More terms (from b-file) added by N. J. A. Sloane, Aug 31 2009

A154417 Number of ways to express n as the sum of an odd prime, a positive Fibonacci number and half of a positive Fibonacci number.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 2, 2, 4, 3, 3, 4, 3, 4, 3, 4, 5, 2, 5, 5, 4, 6, 6, 4, 9, 5, 5, 6, 6, 5, 5, 6, 7, 3, 8, 6, 6, 7, 4, 5, 8, 5, 9, 4, 7, 6, 5, 7, 9, 5, 7, 4, 6, 6, 6, 7, 5, 4, 8, 3, 8, 8, 6, 6, 7, 7, 8, 6, 6, 6, 4, 6, 8, 3, 9, 8, 7, 10, 10, 8, 8, 8, 7, 6, 12, 7, 6, 10, 7, 7, 10, 10, 9, 5, 7, 11, 9, 10, 6, 6, 8
Offset: 1

Views

Author

Zhi-Wei Sun, Jan 09 2009

Keywords

Comments

On Jan 09 2009, Zhi-Wei Sun conjectured that a(n)>0 for every n=5,6,...; in other words, any integer n>4 can be written in the form p+F_s+F_{3t}/2 with p an odd prime and s,t>0. Sun verified this up to 5*10^6 and Qing-Hu Hou continued the verification (on Sun's request) up to 3*10^8. Note that 932633 cannot be written as p+F_s+F_{3t}/2 with p a prime and (F_s or F_{3t}/2) odd. If we set u_0=0, u_1=1 and u_{n+1}=4u_n+u_{n-1} for n=1,2,3,..., then F_{3t}/2=u_t is at least 4^{t-1} for each t=1,2,3,.... In a recent paper K. J. Wu and Z. W. Sun constructed a residue class which contains no integers of the form p+F_{3t}/2 with p a prime and t nonnegative.

Examples

			For n=9 the a(9)=4 solutions are 3 + F_5 + F_3/2, 3 + F_3 + F_6/2, 5 + F_4 + F_3/2, 7 + F_2 + F_3/2.
		

References

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

Crossrefs

Programs

  • Mathematica
    PQ[m_]:=m>2&&PrimeQ[m] RN[n_]:=Sum[If[PQ[n-Fibonacci[3x]/2-Fibonacci[y]],1,0], {x,1,Log[2,n]+1},{y,2,2*Log[2,Max[2,n-Fibonacci[3x]/2]]}] Do[Print[n," ",RN[n]];Continue,{n,1,50000}]

Formula

a(n) = |{: p+F_s+F_{3t}/2=n with p an odd prime, s>1 and t>0}|.

A154364 Number of ways to express n as the sum of an odd prime, a positive Pell number and a companion Pell number.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 1, 1, 1, 3, 2, 2, 1, 4, 2, 2, 2, 4, 3, 4, 5, 4, 3, 4, 3, 5, 4, 2, 3, 4, 4, 3, 4, 4, 3, 4, 4, 7, 4, 4, 3, 6, 3, 6, 5, 6, 4, 8, 5, 7, 4, 5, 3, 7, 5, 5, 5, 5, 4, 5, 3, 6, 4, 4, 4, 7, 4, 6, 4, 4, 2, 6, 3, 7, 6, 6, 6, 7, 6, 6, 3, 7, 6, 3, 4, 9, 9
Offset: 1

Views

Author

Zhi-Wei Sun, Jan 07 2009

Keywords

Comments

This is inspired by the sequence A154290 and related conjectures of Sun. On Jan 08 2009, Zhi-Wei Sun and Qing-Hu Hou conjectured that a(n)>0 for n=6,7,...; in other words, any integer n>5 can be written as the sum of an odd prime, a positive Pell number and a companian Pell number. The Pell numbers are defined by P_0=0, P_1=1 and P_{n+1}=2P_n+P_{n-1} (n=1,2,3,...) and the companion Pell numbers are given by Q_0=Q_1=2 and Q_{n+1}=2Q_n+Q_{n-1} (n=1,2,3...). Note that for n>5 both P_n and Q_n are greater than 2^n.
D. S. McNeil disproved the conjecture by finding the 4 initial counterexamples: 169421772576, 189661491306, 257744272674, 534268276332. - Zhi-Wei Sun, Jan 17 2009
On Feb 01 2009, Zhi-Wei Sun observed that these 4 counterexamples are divisible by 42 and guessed that all counterexamples to the conjecture of Sun and Hou should be multiples of 42. - Zhi-Wei Sun, Feb 01 2009

Examples

			For n=10 the a(10)=3 solutions are 3+5+2, 3+1+6, 7+1+2.
		

Crossrefs

Programs

  • Maple
    Pell:=proc(n) if n=0 then return(0); elif n=1 then return(1); else return( 2*Pell(n-1) + Pell(n-2) ); fi; end proc: comp_Pell:=proc(n) if n=0 then return(2); elif n=1 then return(2); else return( 2*comp_Pell(n-1) + comp_Pell(n-2) ); fi; end proc: for n from 1 to 10^5 do rep_num:=0; for i from 1 while Pell(i)2) and isprime(p) then rep_num:=rep_num+1; fi; od; od; printf("%d %d\n", n, rep_num); od:
  • Mathematica
    nmax = 10^3;
    Pell[n_] := Pell[n] = If[n == 0, Return[0], If[n == 1, Return[1], Return[2* Pell[n - 1] + Pell[n - 2]]]];
    compPell[n_] := compPell[n] = If[n == 0, Return[2], If[n == 1, Return[2],  Return[2*compPell[n - 1] + compPell[n - 2]]]];
    Reap[For[n = 1, n <= nmax, n++, repnum = 0; For[i = 1, Pell[i] < n, i++, For[j = 1, Pell[i] + compPell[j] < n, j++, p = n - Pell[i] - compPell[j]; If[p > 2 && PrimeQ[p], repnum++]]]; Sow[repnum]]][[2, 1]] (* Jean-François Alcover, Dec 13 2017, translated from Maple *)

A154421 Number of ways to express n as the sum of an odd prime, a positive Fibonacci number and an even Lucas number.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 1, 3, 2, 5, 2, 5, 2, 4, 3, 4, 4, 5, 2, 6, 2, 7, 5, 7, 3, 9, 3, 9, 4, 7, 3, 6, 4, 9, 3, 10, 3, 8, 4, 6, 5, 8, 6, 8, 3, 9, 4, 8, 6, 8
Offset: 1

Views

Author

Zhi-Wei Sun, Jan 09 2009

Keywords

Comments

On Jan 09 2009, Zhi-Wei Sun conjectured that a(n)>0 for all n=6,7,.... ; in other words, any integer n>5 can be written in the form p+F_s+L_{3t} with p an odd prime, s positive and t nonnegative. [Compare this with the conjecture related to the sequence A154290.] Sun verified the above conjecture up to 5*10^6 and Qing-Hu Hou continued the verification up to 2*10^8. If we set v_0=2, v_1=4 and v_{n+1}=4v_n+v_{n-1} for n=1,2,3,..., then L_{3t}=v_t is at least 4^t for every t=0,1,2,.... On Jan 17 2009, D. S. McNeil found that 36930553345551 cannot be written as the sum of a prime, a Fibonacci number and an even Lucas number.

Examples

			For n=8 the a(8)=3 solutions are 3 + F_4 + L_0, 3 + F_2 + L_3, 5 + F_2 + L_0.
		

References

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

Crossrefs

Programs

  • Mathematica
    PQ[m_]:=m>2&&PrimeQ[m] RN[n_]:=Sum[If[PQ[n-2*Fibonacci[3x+1]+Fibonacci[3x]-Fibonacci[y]],1,0], {x,0,Log[2,n]},{y,2,2*Log[2,Max[2,n-2*Fibonacci[3x+1]+Fibonacci[3x]]]}] Do[Print[n," ",RN[n]];Continue,{n,1,50000}]

Formula

a(n) = |{: p+F_s+L_{3t}=n with p an odd prime, s>1 and t nonnegative}|.

Extensions

McNeil's counterexample added by Zhi-Wei Sun, Jan 20 2009
Showing 1-6 of 6 results.