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

A001235 Taxi-cab numbers: sums of 2 cubes in more than 1 way.

Original entry on oeis.org

1729, 4104, 13832, 20683, 32832, 39312, 40033, 46683, 64232, 65728, 110656, 110808, 134379, 149389, 165464, 171288, 195841, 216027, 216125, 262656, 314496, 320264, 327763, 373464, 402597, 439101, 443889, 513000, 513856, 515375, 525824, 558441, 593047, 684019, 704977
Offset: 1

Views

Author

Keywords

Comments

From Wikipedia: "1729 is known as the Hardy-Ramanujan number after a famous anecdote of the British mathematician G. H. Hardy regarding a hospital visit to the Indian mathematician Srinivasa Ramanujan. In Hardy's words: 'I remember once going to see him when he was ill at Putney. I had ridden in taxi cab number 1729 and remarked that the number seemed to me rather a dull one, and that I hoped it was not an unfavorable omen. "No," he replied, "it is a very interesting number; it is the smallest number expressible as the sum of two cubes in two different ways."'"
A011541 gives another version of "taxicab numbers".
If n is in this sequence, then n*k^3 is also in this sequence for all k > 0. So this sequence is obviously infinite. - Altug Alkan, May 09 2016

Examples

			4104 belongs to the sequence as 4104 = 2^3 + 16^3 = 9^3 + 15^3.
		

References

  • R. K. Guy, Unsolved Problems in Number Theory, Section D1.
  • G. H. Hardy, Ramanujan, Cambridge Univ. Press, 1940, p. 12.
  • Ya. I. Perelman, Algebra can be fun, pp. 142-143.
  • H. W. Richmond, On integers which satisfy the equation t^3 +- x^3 +- y^3 +- z^3, Trans. Camb. Phil. Soc., 22 (1920), 389-403, see p. 402.
  • D. Wells, The Penguin Dictionary of Curious and Interesting Numbers. Penguin Books, NY, 1986, 165.

Crossrefs

Subsequence of A003325.
Cf. A007692, A008917, A011541, A018786, A018850 (primitive solutions), A051347 (allows negatives), A343708, A360619.
Solutions in greater numbers of ways:
(>2): A018787 (A003825 for primitive, A023050 for coprime),
(>3): A023051 (A003826 for primitive),
(>4): A051167 (A155057 for primitive).

Programs

  • Mathematica
    Select[Range[750000],Length[PowersRepresentations[#,2,3]]>1&] (* Harvey P. Dale, Nov 25 2014, with correction by Zak Seidov, Jul 13 2015 *)
  • PARI
    is(n)=my(t);for(k=ceil((n/2)^(1/3)),(n-.4)^(1/3),if(ispower(n-k^3,3),if(t,return(1),t=1)));0 \\ Charles R Greathouse IV, Jul 15 2011
    
  • PARI
    T=thueinit(x^3+1,1);
    is(n)=my(v=thue(T,n)); sum(i=1,#v,v[i][1]>=0 && v[i][2]>=v[i][1])>1 \\ Charles R Greathouse IV, May 09 2016

A025396 Numbers that are the sum of 3 positive cubes in exactly 2 ways.

Original entry on oeis.org

251, 1009, 1366, 1457, 1459, 1520, 1730, 1737, 1756, 1763, 1793, 1854, 1945, 2008, 2072, 2241, 2414, 2456, 2458, 2729, 2736, 3060, 3391, 3457, 3592, 3599, 3655, 3745, 3926, 4105, 4112, 4131, 4168, 4229, 4320, 4376, 4402, 4437, 4447, 4473, 4528, 4616
Offset: 1

Views

Author

Keywords

Comments

Subset of A008917; A025397 gives examples of numbers which are in A008917 but not here. - R. J. Mathar, May 28 2008
A025456(a(n)) = 2. - Reinhard Zumkeller, Apr 23 2009
Superset of A024974 . - Christian N. K. Anderson, Apr 11 2013

Examples

			a(1) = 251 = 1^3+5^3+5^3 = 2^3+3^3+6^3. - _Christian N. K. Anderson_, Apr 11 2013
		

Crossrefs

Programs

  • Mathematica
    Select[Range[5000], Length[DeleteCases[PowersRepresentations[#,3,3], ?(MemberQ[#,0]&)]] == 2&] (* _Harvey P. Dale, Jan 18 2012 *)
  • PARI
    is(n)=k=ceil((n-2)^(1/3)); d=0; for(a=1,k,for(b=a,k,for(c=b,k,if(a^3+b^3+c^3==n,d++))));d
    n=3;while(n<5000,if(is(n)==2,print1(n,", "));n++) \\ Derek Orr, Aug 27 2015

A344804 Numbers that are the sum of two cubes in exactly three ways.

Original entry on oeis.org

87539319, 119824488, 143604279, 175959000, 327763000, 700314552, 804360375, 958595904, 1148834232, 1407672000, 1840667192, 1915865217, 2363561613, 2622104000, 3080802816, 3235261176, 3499524728, 3623721192, 3877315533, 4750893000, 5544709352, 5602516416
Offset: 1

Views

Author

Sean A. Irvine, Jun 14 2021

Keywords

Examples

			87539319 is a term because 87539319 = 167^3 + 436^3 = 22^3 + 423^3 = 255^3 + 414^3 (3 representations).
6963472309248 is not a term because 6963472309248 = 2421^3 + 19083^3 = 5436^3 + 18948^3 = 10200^3 + 18072^3 = 13322^3 + 16630^3 (4 representations).  This is the first difference between this sequence and A018787.
		

Crossrefs

A338667 Numbers that are the sum of two positive cubes in exactly one way.

Original entry on oeis.org

2, 9, 16, 28, 35, 54, 65, 72, 91, 126, 128, 133, 152, 189, 217, 224, 243, 250, 280, 341, 344, 351, 370, 407, 432, 468, 513, 520, 539, 559, 576, 637, 686, 728, 730, 737, 756, 793, 854, 855, 945, 1001, 1008, 1024, 1027, 1064, 1072, 1125, 1216, 1241, 1332, 1339, 1343, 1358, 1395, 1456, 1458, 1512, 1547, 1674, 1736
Offset: 1

Views

Author

David Consiglio, Jr., Apr 22 2021

Keywords

Comments

This sequence differs from A003325 at term 61: A003325(61) = 1729 is the famous Ramanujan taxicab number and is excluded from this sequence because it is the sum of two cubes in two distinct ways.

Examples

			35 is a term of this sequence because 2^3 + 3^3 = 8 + 27 = 35 and this is the one and only way to express 35 as the sum of two cubes.
		

Crossrefs

Programs

  • Mathematica
    Select[Range@2000,Length[s=PowersRepresentations[#,2,3]]==1&&And@@(#>0&@@@s)&] (* Giorgos Kalogeropoulos, Apr 24 2021 *)
  • Python
    from itertools import combinations_with_replacement as cwr
    from collections import defaultdict
    from bisect import bisect_left as bisect
    keep = defaultdict(lambda: 0)
    power_terms = [x**3 for x in range(1,1000)]
    for pos in cwr(power_terms,2):
        tot = sum(pos)
        keep[tot] += 1
    rets = sorted([k for k,v in keep.items() if v == 1])
    for x in range(len(rets)):
        print(rets[x])
Showing 1-4 of 4 results.