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-10 of 12 results. Next

A154332 Least positive integer m such that A087285(n) = A154333(m) = m^3 - next smaller square.

Original entry on oeis.org

3, 2, 32, 15, 17, 4, 7, 6, 35, 8, 11, 10, 14, 21, 12, 28, 65, 9, 56, 18, 136, 568, 23, 99, 101, 20, 13, 27, 34, 30, 143, 145, 38, 16, 19, 47, 195, 91, 197, 175, 26, 51, 59, 799, 69, 62, 163, 255, 257, 66, 31, 717, 2904, 33, 377, 79, 323, 325, 25
Offset: 1

Views

Author

M. F. Hasler, Jan 07 2009

Keywords

Comments

The terms of this sequence constitute a "proof" for the terms listed in A087285. To prove that a number is NOT in A087285, one can check the finite number (A081120) of solutions to the corresponding Mordell equation, cf. references in A081121.

Programs

  • PARI
    A154332(n) = { local(m); until(m++^3-sqrtint(m^3-1)^2==A087285[n],); m }

Formula

A087285(n) = A154333(a(n)) = a(n)^3 - [sqrt(a(n)^3 - 1)]^2 = A000578(a(n)) - A048760(a(n)^3-1).

A077116 n^3 - A065733(n).

Original entry on oeis.org

0, 0, 4, 2, 0, 4, 20, 19, 28, 0, 39, 35, 47, 81, 40, 11, 0, 13, 56, 135, 79, 45, 39, 67, 135, 0, 152, 83, 48, 53, 104, 207, 7, 216, 100, 26, 0, 28, 116, 270, 496, 277, 104, 546, 503, 524, 615, 139, 368, 0, 391, 155, 732, 652, 648, 726, 55, 293, 631, 170, 704
Offset: 0

Views

Author

Reinhard Zumkeller, Oct 29 2002

Keywords

Comments

a(n) = 0 for n = m^2. - Zak Seidov, May 11 2007
It has been asked whether some primes do not occur in this sequence. It seems indeed that primes 3, 5, 17, 23, 29, 31, 37, 41, 43, 59, 61,... do not occur, primes 2, 7, 11, 13, 19, 47, 53, 67, 79, 83,... do. For further investigations, see A087285 = the range of this sequence, and also the related sequences A229618 = range of A181138, and A165288. - M. F. Hasler, Sep 26 2013 and Oct 05 2013

Examples

			A065733(10) = 961 = 31^2 is the largest square less than or equal to 10^3 = 1000, therefore a(10) = 1000 - 961 = 39.
		

Crossrefs

Programs

Formula

a(n) = A154333(n) unless n is a square or, equivalently, a(n)=0. - M. F. Hasler, Oct 05 2013
a(n) = A053186(n^3). - R. J. Mathar, Jul 12 2016

A065733 Largest square <= n^3.

Original entry on oeis.org

0, 1, 4, 25, 64, 121, 196, 324, 484, 729, 961, 1296, 1681, 2116, 2704, 3364, 4096, 4900, 5776, 6724, 7921, 9216, 10609, 12100, 13689, 15625, 17424, 19600, 21904, 24336, 26896, 29584, 32761, 35721, 39204, 42849, 46656, 50625, 54756, 59049, 63504
Offset: 0

Views

Author

Labos Elemer, Nov 15 2001

Keywords

Examples

			a(10) = 961, as 961 = 31^2 is the largest square <= 1000 = 10^3.
		

Crossrefs

Programs

  • Haskell
    a065733 n = head [x | x <- reverse [0.. n^3], a010052 x == 1] -- Reinhard Zumkeller, Oct 10 2013
  • Mathematica
    Table[Floor[Sqrt[w^3]//N]^2, {w, 1, 50}]
  • PARI
    A065733(n)=sqrtint(n^3)^2  \\ M. F. Hasler, Oct 05 2013
    

Formula

a(n) + A077116(n) = n^3.
a(n) = A048760(n^3).
n^3 - 2*n^(3/2) <= a(n) <= n^3. - Charles R Greathouse IV, Dec 05 2022
a(n) = A000093(n)^2. - Amiram Eldar, Jul 14 2024

A087286 Possible differences between a square and the closest smaller cube.

Original entry on oeis.org

1, 3, 8, 9, 12, 15, 17, 18, 19, 22, 24, 30, 36, 37, 38, 40, 44, 55, 57, 64, 65, 68, 71, 73, 79, 80, 89, 97, 98, 100, 101, 106, 107, 108, 112, 113, 119, 121, 128, 129, 138, 141, 145, 148, 151, 154, 156, 161, 163, 164, 168, 169, 171, 172, 190, 196, 197, 198, 204, 208
Offset: 1

Views

Author

Hugo Pfoertner, Sep 18 2003

Keywords

Comments

Integers of the form m^2 - floor((m^2-1)^(1/3))^3 for integer m.

Examples

			2^2-1^3=3, 3^2-2^3=1, 4^2-2^3=8, 5^2-2^3=17, 6^2-3^3=9, 7^2-3^3=22,...,
1138^2-109^3=15
		

Crossrefs

A165288 Possible values of the difference between a cube and the largest square not larger than the cube.

Original entry on oeis.org

0, 2, 4, 7, 11, 13, 19, 20, 26, 28, 35, 39, 40, 45, 47, 48, 49, 53, 55, 56, 60, 63, 67, 74, 76, 79, 81, 83, 100, 104, 107, 109, 116, 135, 139, 146, 147, 148, 150, 152, 155, 170, 174, 180, 184, 186, 191, 193, 200, 207, 212, 215, 216, 233, 235, 242, 244, 251, 270, 277
Offset: 1

Views

Author

Keywords

Comments

The values of A077116, sorted and duplicates removed.
Note that the values have been generated with a finite search radius and are not proved to be complete. [R. J. Mathar, Oct 09 2009]
Except for the leading 0, a subsequence of A229618 which is in turn (except for the initial 1) a subsequence of A106265. The values {15, 18, 25, 44, 54, 61, 71, 72, 87, 106, 112, 118, 126, 127,...} are in A229618 but not in the present sequence. Using results from A179386, it should be possible to prove that the sequence is complete up to a given point. - M. F. Hasler, Sep 26 2013

Examples

			The gap 0 appears in 1^3-1^2 or 4^3-8^2 etc.
The gap 2 appears for example in 3^3-5^2.
The gap 4 appears for example in 2^3-2^2 or 5^3-11^2.
The gap 19 appears in 7^3-18^2, the gap 20 in 6^3-14^2.
		

Crossrefs

Essentially the same as A087285.

Programs

  • Mathematica
    lst={};Do[a=n^3-Floor[Sqrt[n^3]]^2;If[a<=508,AppendTo[lst,a]],{n,2*8!}]; Take[Union@lst,90]

Extensions

Edited by R. J. Mathar, Oct 09 2009
Name corrected by M. F. Hasler, Oct 05 2013

A154333 Difference between n^3 and the next smaller square.

Original entry on oeis.org

1, 4, 2, 15, 4, 20, 19, 28, 53, 39, 35, 47, 81, 40, 11, 127, 13, 56, 135, 79, 45, 39, 67, 135, 249, 152, 83, 48, 53, 104, 207, 7, 216, 100, 26, 431, 28, 116, 270, 496, 277, 104, 546, 503, 524, 615, 139, 368, 685, 391, 155, 732, 652, 648, 726, 55, 293, 631, 170, 704, 405
Offset: 1

Views

Author

M. F. Hasler, Jan 07 2009

Keywords

Comments

The sequence A077116(n) = n^3-[sqrt(n^3)]^2 satisfies A077116(n)=0 <=> n^3 is a square <=> n is a square. It differs from the present sequence (which is always positive) only in these indices, where a(k^2)=2k^3-1.

Crossrefs

Cf. A087285 (range of this sequence, excluding the initial term 1).

Programs

  • Maple
    A154333 := proc(n)
        A071797(n^3) ;
    end proc: # R. J. Mathar, May 29 2016
  • Mathematica
    nss[n_]:=Module[{n3=n^3,s},s=Floor[Sqrt[n3]]^2;If[s==n3,s=(Sqrt[s]- 1)^2, s]]; Table[n^3-nss[n],{n,70}] (* Harvey P. Dale, Jan 19 2017 *)
  • PARI
    A154333(n) = n^3-sqrtint(n^3-1)^2
    a154333 = vector(90,n,n^3-sqrtint(n^3-1)^2)

Formula

a(n) = n^3 - [sqrt(n^3 - 1)]^2 = A000578(n) - A048760(n^3-1). a(k^2) = 2 k^3 - 1.
a(n) = A071797(n^3). - R. J. Mathar, May 29 2016

A229618 Numbers that are the distance between a square and the next larger cube.

Original entry on oeis.org

1, 2, 4, 7, 11, 13, 15, 18, 19, 20, 25, 26, 28, 35, 39, 40, 44, 45, 47, 48, 49, 53, 54, 55, 56, 60, 61, 63, 67, 71, 72, 74, 76, 79, 81, 83, 87, 100, 104, 106, 107, 109, 112, 116, 118, 126, 127, 128, 135, 139, 143
Offset: 1

Views

Author

M. F. Hasler, Sep 26 2013

Keywords

Comments

This is the range of the sequence A181138 (= least k>0 such that n^2+k is a cube). Note that this is not the same as A087285 = range of A077116 = difference between a cube and the next smaller square: If n^2+k = y^3 is the smallest cube above n^2, then n^2 is not necessarily the largest square below y^3, e.g., 9+18 = 27 = 3^3 is the least cube above 9 = 3^2, but 25 = 5^2 is the largest square below 27. Therefore the number 18 is in this sequence, but not in A087285.
See A077116 and A181138 and A179386 for motivations.
Apart from the leading 1, this is a subsequence of A106265, which does not require the square to be the next smaller one: For example, 23 = 27 - 4 = 3^3 - 2^2 is in A106265 but not in this sequence. A165288 is a subsequence of this one, except for the initial term.

Examples

			a(1) = 1 = 1^3-0^2 (but this is the only solution to y^3-x^2 = 1).
a(2) = 2 = 27-25 (= 3^3-5^2), and this is the only solution to y^3-x^2 = 2.
The number 3 is not in the sequence since there are no x, y > 0 such that y^3-x^2 = 3.
a(3) = 4 = 8-4 (= 2^3-2^2) = 125-121 (= 5^3-11^2); these are the only two solutions to y^3-x^2 = 4, for all x>11, the minimal positive y^3-x^2 is 7.
		

Crossrefs

A088017 Numbers not expressible as sum or difference of a nonzero cube and a nonzero square.

Original entry on oeis.org

6, 14, 16, 21, 27, 29, 32, 34, 42, 46, 51, 58, 59, 62, 66, 69, 70, 75, 77, 78, 84, 85, 86, 88, 90, 93, 96, 102, 103, 110, 111, 114, 115, 123, 125, 130, 133, 137, 140, 144, 149, 157, 158, 160, 162, 165, 166, 173, 176, 178, 179, 181, 182, 183, 187, 194, 201, 202, 203
Offset: 1

Views

Author

Hugo Pfoertner, Sep 18 2003

Keywords

Comments

Numbers n such that neither variant of Mordell's equation y^2=x^3+n (A054504) or y^2=x^3-n (A081121) has an integral solution with nonzero x and y. - Jack Brennen, Aug 28 2003

Examples

			16 is in the sequence because the only integral solution to Mordell's equation y^2 = x^3 +- 16 is (y=4,x=0). 49 is not in the sequence because it can also be expressed as 65^3-524^2.
		

Crossrefs

A228948 Numbers n such that n^3 + k^2 = m^3 for some k>0, m>0.

Original entry on oeis.org

6, 7, 11, 23, 24, 26, 28, 31, 38, 42, 44, 47, 54, 55, 61, 63, 84, 91, 92, 95, 96, 99, 104, 110, 111, 112, 118, 119, 124, 138
Offset: 1

Views

Author

M. F. Hasler, Oct 05 2013

Keywords

Comments

Cube root of perfect cubes in A087285 or in A229618 are in the present sequence, but this does not yield all terms, because these sequences require k^2 to be the largest square < m^3.
Numbers k such that Mordell's equation y^2 = x^3 - k^3 has more than 1 integral solution. (Note that it is necessary that x is positive.) In other words, numbers k such that Mordell's equation y^2 = x^3 - k^3 has solutions other than the trivial solution (k,0). - Jianing Song, Sep 24 2022

Examples

			6 is a term since the equation y^2 = x^3 - 6^3 has 5 solutions (6,0), (10,+-28), and (33,+-189). - _Jianing Song_, Sep 24 2022
		

Crossrefs

Cube root of A179419.
Cf. A356709, A356720. Complement of A356713.

Extensions

More terms added by Jianing Song, Sep 24 2022 based on A179419.

A125643 Squares and cubes (with repetition).

Original entry on oeis.org

0, 0, 1, 1, 4, 8, 9, 16, 25, 27, 36, 49, 64, 64, 81, 100, 121, 125, 144, 169, 196, 216, 225, 256, 289, 324, 343, 361, 400, 441, 484, 512, 529, 576, 625, 676, 729, 729, 784, 841, 900, 961, 1000, 1024, 1089, 1156, 1225, 1296, 1331, 1369, 1444, 1521, 1600, 1681
Offset: 1

Views

Author

Zak Seidov, Oct 19 2006

Keywords

Comments

Repeating terms are sixth powers: 0,1,64,729,... (A001014).
For numbers not appearing as a difference between a square and an adjacent cube in this list, see A054504 and A081121.

Crossrefs

Cf. A002760 (squares and cubes (without repetitions)).

Programs

  • Mathematica
    m=1681;cm=Floor[m^(1/3)];sm=Floor[Sqrt[m]];s=Range[0,sm]^2;c=Range[0,cm]^3;Sort[Join[s,c]] (* James C. McMahon, Dec 20 2024 *)
  • Python
    from math import isqrt
    from sympy import integer_nthroot
    def A125643(n):
        if n <= 4: return n-1>>1
        def bisection(f,kmin=0,kmax=1):
            while f(kmax) > kmax: kmax <<= 1
            while kmax-kmin > 1:
                kmid = kmax+kmin>>1
                if f(kmid) <= kmid:
                    kmax = kmid
                else:
                    kmin = kmid
            return kmax
        def f(x): return n-2+x-integer_nthroot(x,3)[0]-isqrt(x)
        return bisection(f,n-2,n-2) # Chai Wah Wu, Oct 14 2024

Extensions

Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, Jul 14 2007
Showing 1-10 of 12 results. Next