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-9 of 9 results.

A266231 Least positive integer x such that x^2 - n = y^3 + z^3 for some positive integers y and z, or 0 if no such x exists.

Original entry on oeis.org

6, 2, 61, 47, 3283, 16, 3, 6, 5, 8, 12, 686, 16, 4, 302, 5, 13, 12, 152, 6, 7, 83, 5, 148, 33, 37, 6, 10, 8, 11, 34, 16, 7, 6, 10, 8, 24, 53, 16, 7, 13, 52, 13, 14, 30, 9, 7, 8, 11, 67, 74, 22, 9, 28, 8, 11, 43, 115, 20, 122, 23, 8, 14, 48, 9, 25, 11, 14, 392, 14
Offset: 1

Views

Author

Zhi-Wei Sun, Dec 24 2015

Keywords

Comments

The conjecture in A266230 implies that a(n) > 0 for all n > 0.

Examples

			 a(1) = 6 since 6^2 - 1 = 2^3 + 3^3.
a(3) = 61 since 61^2 - 3 = 7^3 + 15^3.
a(4) = 47 since 47^2 - 4 = 2^3 + 13^3.
a(5) = 3283 since 3283^2 - 5 = 65^3 + 219^3.
a(166) = 6554 since 6554^2 - 166 = 175^3 + 335^3.
a(635) = 44779 since 44779^2 - 635 = 25^3 + 1261^3.
		

Crossrefs

Programs

  • Mathematica
    CQ[n_]:=CQ[n]=IntegerQ[n^(1/3)]
    Do[x=Floor[Sqrt[n]]+1;Label[bb];Do[If[CQ[-n+x^2-y^3],Print[n," ",x];Goto[aa]],{y,1,((-n+x^2)/2)^(1/3)}];x=x+1;Goto[bb];Label[aa];Continue,{n,1,70}]

A266277 Least positive integer x such that n + x^2 = y^3 + z^5 for some positive integers y and z, or 0 if no such x exists.

Original entry on oeis.org

3, 1, 83, 5, 6, 2, 175, 19, 1, 191, 7, 31, 4, 12, 16, 5, 7, 4, 17, 3, 18, 14, 1099, 6, 2, 244, 10, 1, 501, 2, 15205, 3, 1, 88, 5, 44, 2, 60, 2537, 1, 5, 52, 32834, 4, 18, 9, 84, 7, 13, 4, 3, 16, 14, 39, 26, 2, 3, 10, 1, 20, 6, 2, 8, 543, 1, 111, 4570, 36, 110, 1402, 501
Offset: 0

Views

Author

Zhi-Wei Sun, Dec 26 2015

Keywords

Comments

Conjecture: If {a,b,c} is among the multisets {2,2,p} (p is an odd prime or a product of primes congruent to 1 modulo 4) and {2,3,k} (k = 3,4,5), then for any integer m there are (infinitely many) triples (x,y,z) of positive integers such that m = x^a + y^b - z^c.
This implies that a(n) > 0 for all n. Also, it includes the conjectures in A266152, A266212 and A266230 as special cases.
For any odd prime p == 3 (mod 4) and odd integer n > 1, I have proved that x^{pn} + (2p)^p with x an integer is never a sum of two squares. - Zhi-Wei Sun, Jan 06 2016

Crossrefs

Programs

  • Maple
    a(0) = 3 since 0 + 3^2 = 2^3 + 1^5.
    a(2) = 83 since 2 + 83^2 = 19^3 + 2^5.
    a(42) = 32834 since 42 + 32834^2 = 781^3 + 57^5.
    a(445) = 903402 since 445 + 903402^2 = 9345^3 + 34^5.
    a(510) = 10875037 since 510 + 10875037^2 = 40712^3 + 551^5.
  • Mathematica
    CQ[n_]:=CQ[n]=IntegerQ[n^(1/3)]
    Do[x=1;Label[bb];Do[If[CQ[n+x^2-y^5],Print[n," ",x];Goto[aa]],{y,1,(n+x^2-1)^(1/5)}];x=x+1;Goto[bb];Label[aa];Continue,{n,0,70}]

A266314 Least positive integer x such that n + x^7 = y^2 + z^2 for some positive integers y and z, or 0 if no such x exists.

Original entry on oeis.org

2, 1, 2, 13, 1, 3, 7, 1, 2, 1, 3, 15, 1, 6, 11, 11, 1, 1, 2, 1, 2, 2, 7, 3, 1, 1, 3, 5, 1, 2, 7, 1, 2, 1, 2, 5, 1, 4, 3, 1, 1, 2, 2, 7, 1, 2, 7, 3, 5, 1, 2, 1, 1, 2, 11, 21, 5, 1, 3, 5, 1, 3, 3, 3, 1, 2, 2, 1, 4, 2, 3
Offset: 0

Views

Author

Zhi-Wei Sun, Dec 27 2015

Keywords

Comments

The general conjecture in A266277 implies that for each odd prime p and any integer m there are positive integers x, y and z such that m + x^p = y^2 + z^2.
For k = 4,6,8,... and any integer m == 6 (mod 8), there are no integers x, y and z with m + x^k = y^2 + z^2 since m + x^k with x an integer is congruent to 6 or 7 modulo 8.
As 2j+1 = (j+1)^2 - j^2, if m - z^k is odd with |m - z^k| > 1 then m + x^2 = y^2 + z^k for some positive integers x and y.

Examples

			a(2) = 2 since 2 + 2^7 = 3^2 + 11^2.
a(3) = 13 since 3 + 13^7 = 554^2 + 7902^2.
a(5) = 3 since 5 + 3^7 = 16^2 + 44^2.
a(6) = 7 since 6 + 7^7 = 30^2 + 907^2.
a(462) = 71 since 462 + 71^7 = 456497^2 + 2981062^2.
		

Crossrefs

Programs

  • Mathematica
    SQ[n_]:=SQ[n]=IntegerQ[Sqrt[n]]
    Do[x=1;Label[bb];Do[If[SQ[n+x^7-y^2],Print[n," ",x];Goto[aa]],{y,1,Sqrt[(n+x^7)/2]}];x=x+1;Goto[bb];Label[aa];Continue,{n,1,70}]
    (* second program: *)
    xmax = 100; r[n_, x_] := Reduce[y>0 && z>0 && n+x^7 == y^2+z^2, {y, z}, Integers]; a[n_] := For[x=1, x <= xmax, x++, If[r[n, x] =!= False, Return[x]]] /. Null -> 0; Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Dec 27 2015 *)

A266363 Least positive integer x such that n + x^2 = y^3 + z^4 for some positive integers y and z, or 0 if no such x exists.

Original entry on oeis.org

3, 1, 302, 5, 47, 2, 362, 6, 1, 372, 14, 61, 4, 2, 70, 3, 1, 24, 5, 3, 2, 14, 364, 1, 2, 8, 10, 1, 454, 6, 848, 7, 15, 7, 3, 18, 14, 13, 1362, 2, 5, 10, 1, 37, 6, 9, 6, 68, 13, 4, 24, 36, 37, 6, 26, 5, 3, 5, 15, 7, 9
Offset: 0

Views

Author

Zhi-Wei Sun, Dec 28 2015

Keywords

Comments

The general conjecture in A266277 implies that for any integer m there are positive integers x, y and z such that m + x^2 = y^3 + z^4.
See also A266152 and A266364 for similar sequences.

Examples

			a(0) = 3 since 0 + 3^2 = 2^3 + 1^4.
a(2) = 302 since 2 + 302^2 = 45^3 + 3^4.
a(3) = 5 since 3 + 5^2 = 3^3 + 1^4.
a(38) = 1362 since 38 + 1362^2 = 121^3 + 17^4.
a(394) = 110307 since 394 + 110307^2 = 2283^3 + 128^4.
a(5546) = 945840 since 5546 + 945840^2 = 9625^3 + 233^4.
		

Crossrefs

Programs

  • Mathematica
    CQ[n_]:=CQ[n]=IntegerQ[n^(1/3)]
    Do[x=1;Label[bb];Do[If[CQ[n+x^2-y^4],Print[n," ",x];Goto[aa]],{y,1,(n+x^2-1)^(1/4)}];x=x+1;Goto[bb];Label[aa];Continue,{n,0,60}]

A266364 Least positive integer x such that n + x^4 = y^2 + z^3 for some positive integers y and z, or 0 if no such x exists.

Original entry on oeis.org

6, 1, 69, 7, 1, 46, 13, 5, 1, 1, 2, 1, 2, 4, 27, 2, 1, 2, 28, 3, 2, 2, 37, 1, 4, 1, 11, 1, 2, 5, 1, 5, 1, 4, 2, 1, 1, 8, 4, 6, 8, 2, 1, 1, 6, 3, 3, 2, 3, 1, 18, 1, 2, 3, 6, 9, 1, 2, 6, 5, 2
Offset: 0

Views

Author

Zhi-Wei Sun, Dec 28 2015

Keywords

Comments

The general conjecture in A266277 implies that for any integer m there are positive integers x, y and z such that m + x^2 = y^3 + z^4.
See also A266152 and A266363 for similar sequences.

Examples

			a(0) = 6 since 0 + 6^4 = 28^2 + 8^3.
a(2) = 69 since 2 + 69^4 = 44^2 + 283^3.
a(5) = 46 since 5 + 46^4 = 1742^2 + 113^3.
a(570) = 983 since 570 + 983^4 = 546596^2 + 8595^3.
a(8078) = 2255 since 8078 + 2255^4 = 1926054^2 + 28083^3.
		

Crossrefs

Programs

  • Mathematica
    SQ[n_]:=SQ[n]=IntegerQ[Sqrt[n]]
    Do[x=1;Label[bb];Do[If[SQ[n+x^4-y^3],Print[n," ",x];Goto[aa]],{y,1,(n+x^4-1)^(1/3)}];x=x+1;Goto[bb];Label[aa];Continue,{n,0,60}]

A266528 Least positive integer x such that n + x^5 = y^2 + z^3 for some positive integers y and z, or 0 if no such x exists.

Original entry on oeis.org

8, 1, 8, 3, 1, 2, 11, 5, 1, 1, 42, 1, 2, 11, 3, 21, 1, 3, 2, 5, 2, 3, 3, 1, 7, 1, 3, 1, 22, 4, 1, 2, 1, 2, 8, 1, 1, 3, 5, 13, 2, 2, 1, 1, 2, 27, 3, 3, 2, 1, 2, 1, 7, 6, 3, 5, 1, 2, 7, 2, 5, 15, 1, 17, 1, 13, 4, 1, 2, 2, 86
Offset: 0

Views

Author

Zhi-Wei Sun, Dec 31 2015

Keywords

Comments

By the general conjecture in A266277, for any integer m there are positive integers x, y and z such that m + x^5 = y^2 + z^3.

Examples

			a(0) = 8 since 0 + 8^5 = 104^2 + 28^3.
a(2) = 8 since 2 + 8^5 = 179^2 + 9^3.
a(6) = 11 since 6 + 11^5 = 143^2 + 52^3.
a(10) = 42 since 10 + 42^5 = 11415^2 + 73^3.
a(15) = 21 since 15 + 21^5 = 1355^2 + 131^3.
a(435) = 3019 since 435 + 3019^5 = 475594653^2 + 290845^3.
		

Crossrefs

Programs

  • Mathematica
    SQ[n_]:=SQ[n]=IntegerQ[Sqrt[n]]
    Do[x=1;Label[bb];Do[If[SQ[n+x^5-y^3],Print[n," ",x];Goto[aa]],{y,1,(n+x^5-1)^(1/3)}];x=x+1;Goto[bb];Label[aa];Continue,{n,0,70}]

A266548 Least prime p such that n + p^3 = x^2 + y^3 for some positive integers x and y, or 0 if no such prime p exists.

Original entry on oeis.org

71, 2, 2, 5, 2, 3767, 3, 7, 7, 2, 3, 23, 53, 13, 17, 13, 2, 3, 2, 7, 2, 23, 11, 2, 17, 2, 7, 5, 2, 2, 3, 19, 257, 8039, 13, 2, 2, 59, 3, 5, 17, 3, 2, 61, 2, 3, 3, 37, 313, 2, 631, 17, 5, 3, 17, 2, 17, 2, 7, 97, 2, 47, 3, 29, 2, 2, 31, 47, 2, 7, 19
Offset: 0

Views

Author

Zhi-Wei Sun, Dec 31 2015

Keywords

Comments

Conjecture: (i) Any integer can be written as x^2 + y^3 - p^3, where x and y are positive integers, and p is a prime.
(ii) Each integer can be written as x^2 - y^3 + p^3, where x and y are positive integers, and p is a prime.
See also A266230 and A266277 for related conjectures.
Is every prime in this sequence? - David A. Corneth, Dec 30 2017

Examples

			a(0) = 71 since 0 + 71^3 = 588^2 + 23^3 with 71 prime.
a(3) = 5 since 3 + 5^3 = 8^2 + 4^3 with 5 prime.
a(5) = 3767 since 5 + 3767^3 = 214886^2 + 1938^3 with 3767 prime.
a(2966) = 68371 since 2966 + 68371^3 = 17867983^2 + 6992^3 with 68371 prime.
a(7880) = 51137 since 7880 + 51137^3 = 10176509^2 + 31128^3 with 51137 prime.
		

Crossrefs

Programs

  • Mathematica
    p[n_]:=p[n]=Prime[n]
    SQ[n_]:=SQ[n]=IntegerQ[Sqrt[n]]
    Do[x=1;Label[bb];Do[If[SQ[n+p[x]^3-y^3],Print[n," ",p[x]];Goto[aa]],{y,1,(n+p[x]^3-1)^(1/3)}];x=x+1;Goto[bb];Label[aa];Continue,{n,0,70}]
  • PARI
    isokp(p, n) = {my(s = n+p^3); for (k=1, sqrtnint(s, 3), if ((q=s-k^3) && issquare(q), return (1)););}
    a(n) = {p = 2; while(!isokp(p, n), p = nextprime(p+1)); p;} \\ Michel Marcus, Jan 04 2016
    
  • PARI
    a(n, {plim = 2}) = forprime(p = plim, oo, c = n + p^3; for(i = 1, sqrtnint(c, 3), if(issquare(c - i^3) && c - i^3 > 0, return(p))))
    first(n, {plim = 100}) = {my(res = vector(n), l = List(), s, i, c);
    for(u=1, sqrtint((n+plim^3)\1-1), for(v=1, sqrtnint((n+plim^3)\1-u^2, 3), listput(l, u^2+v^3))); l = Set(l); forprime(p = 2, plim, s = 1; while(l[s] < p^3 + 1, s++); for(i = s, #l, c = l[i] - p^3; if(c <= n, if(res[c] == 0, res[c] = p)
    , next(2)))); for(i = 1, n, if(res[i] == 0, res[i] = a(i, plim + 1))); concat([71], res)} \\ David A. Corneth, Dec 30 2017

A266651 Nonnegative integers x such that x^3 + 6^3 is a sum of two squares.

Original entry on oeis.org

14, 21, 62, 190, 206, 210, 237, 286, 334, 350, 382, 398, 426, 430, 446, 453, 574, 622, 670, 734, 766, 777, 782, 878, 958, 974, 1102, 1294, 1317, 1342, 1438, 1486, 1678, 1694, 1722, 1749, 1774, 1790, 1938, 1965, 1966, 2014, 2030, 2110, 2126, 2154, 2222, 2254, 2270, 2289, 2302, 2397, 2414, 2446, 2558, 2638, 2686, 2721, 2734, 2750
Offset: 1

Views

Author

Zhi-Wei Sun, Jan 02 2016

Keywords

Comments

Conjecture: For any integer x with gcd(x,6) = 1, the number x^3 + 6^3 is never a sum of two squares.
We have verified this for x up to 5*10^6.
Note also that 6^3 + (-2)^3 = 8^2 + 12^2.
Hao Pan at Nanjing Univ. confirmed the conjecture on Jan. 3, 2016. - Zhi-Wei Sun, Jan 06 2016

Examples

			a(1) = 14 since 14^3 + 6^3 = 16^2 + 52^2.
a(7) = 237 since 237^3 + 6^3 = 162^2 + 3645^2.
		

Crossrefs

Programs

  • Mathematica
    f[n_]:=f[n]=FactorInteger[n]
    Le[n_]:=Le[n]=Length[f[n]]
    n=0;Do[Do[If[Mod[Part[Part[f[x^3+6^3],i],1],4]==3&&Mod[Part[Part[f[x^3+6^3],i],2],2]==1,Goto[aa]],{i,1,Le[216+x^3]}];n=n+1;Print[n," ",x];Label[aa];Continue,{x,0,2750}]

A266985 Least positive integer x such that n + x^3 = y^2 + z^5 for some positive integers y and z, or 0 if no such x exists.

Original entry on oeis.org

7, 1, 2, 34, 1, 55, 3, 5, 30, 1, 3, 242, 6, 7, 3, 26, 1, 4, 2, 7, 5, 3, 62, 3, 77, 1, 107, 10, 2, 2, 3, 6, 1, 2, 128, 1, 1, 4, 3, 11, 1, 3, 2, 6, 7, 5, 22, 1, 50, 1, 7, 5, 6, 16, 3, 3, 1, 2, 4, 62, 2, 17, 19, 6, 1, 8, 14, 1, 4, 3, 11
Offset: 0

Views

Author

Zhi-Wei Sun, Jan 08 2016

Keywords

Comments

The general conjecture in A266277 implies that for any integer m there are positive integers x, y and z with m + x^3 = y^2 + z^5.
See also A266277 and A266528 for similar conjectures.

Examples

			a(0) = 7 since 0 + 7^3 = 10^2 + 3^5.
a(3) = 34 since 3 + 34^3 = 150^2 + 7^5.
a(8) = 30 since 8 + 30^3 = 101^2 + 7^5.
a(11) = 242 since 11 + 242^3 = 3420^2 + 19^5.
a(766) = 90891 since 766 + 90891^3 = 11850281^2 + 906^5.
		

Crossrefs

Programs

  • Mathematica
    SQ[n_]:=SQ[n]=IntegerQ[Sqrt[n]]
    Do[x=1;Label[bb];Do[If[SQ[n+x^3-y^5],Print[n," ",x];Goto[aa]],{y,1,(n+x^3-1)^(1/5)}];x=x+1;Goto[bb];Label[aa];Continue,{n,0,70}]
Showing 1-9 of 9 results.