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.

A039596 Numbers that are simultaneously triangular and square pyramidal.

Original entry on oeis.org

0, 1, 55, 91, 208335
Offset: 1

Views

Author

Keywords

Comments

Equivalent to 0^2 + 1^2 + 2^2 + 3^2 + ... + r^2 = 0 + 1 + 2 + 3 + ... + s = n for some r and s.

Examples

			1^2 + 2^2 + 3^2 + 4^2 + 5^2 = 1 + 2 + 3 + ... + 10 = 55, so 55 is in the sequence.
		

References

  • Joe Roberts, Lure of the Integers, page 245 (entry for 645).
  • David Wells, The Penguin Dictionary of Curious and Interesting Numbers, Penguin Books, p. 108.

Crossrefs

Intersection of A000217 and A000330.

Programs

  • Maple
    q:= n-> issqr(8*n+1):
    select(q, [sum(j^2, j=1..n)$n=0..100])[];  # Alois P. Heinz, Oct 17 2024

Extensions

Additional comments from Jud McCranie, Mar 19 2000
Zero inserted by Daniel Mondot, Sep 07 2023

A053611 Numbers k such that 1 + 4 + 9 + ... + k^2 = 1 + 2 + 3 + ... + m for some m.

Original entry on oeis.org

1, 5, 6, 85
Offset: 1

Views

Author

Jud McCranie, Mar 19 2000

Keywords

Comments

These are the only possibilities for a sum of the first n squares to equal a triangular number.
From Seiichi Manyama, Aug 25 2019: (Start)
The complete list of solutions to k*(k+1)*(2*k+1)/6 = m*(m+1)/2 is as follows.
(k,m) = (-1, 0), (0, 0), (1, 1), (5, 10), (6, 13), (85, 645),
(-1,-1), (0,-1), (1,-2), (5,-11), (6,-14), (85,-646). (End)

Examples

			1^2 + 2^2 + 3^2 + 4^2 + 5^2 = 1 + 2 + 3 + ... + 10, so 5 is in the sequence.
		

References

  • E. T. Avanesov, The Diophantine equation 3y(y+1) = x(x+1)(2x+1), Volz. Mat. Sb. Vyp., 8 (1971), 3-6.
  • R. K. Guy, Unsolved Problems in Number Theory, Section D3.
  • Joe Roberts, Lure of the Integers, page 245 (entry for 645).

Crossrefs

Cf. A039596, A053612 (values of m).

Programs

  • Maple
    istriangular:=proc(n) local t1; t1:=floor(sqrt(2*n)); if n = t1*(t1+1)/2 then RETURN(true) else RETURN(false); fi; end;
    M:=1000; for n from 1 to M do if istriangular(n*(n+1)*(2*n+1)/6) then lprint(n,n*(n+1)*(2*n+1)/6); fi; od: # N. J. A. Sloane
    # second Maple program:
    q:= n-> issqr(8*sum(j^2, j=1..n)+1):
    select(q, [$1..100])[];  # Alois P. Heinz, Oct 10 2024
  • Mathematica
    Select[Range[90], IntegerQ[(Sqrt[(4/3) * (# + 3 * #^2 + 2 * #^3) + 1] - 1)/2] &] (* Harvey P. Dale, Sep 22 2014 *)

Extensions

Edited by N. J. A. Sloane, May 25 2008

A126973 a(n+1) is the smallest integer greater than a(n) such that the sum of the squares of its decimal digits is equal to a(n).

Original entry on oeis.org

1, 10, 13, 23, 1233, 33999999999999999
Offset: 1

Views

Author

Paolo P. Lava and Giorgio Balzarotti, Mar 20 2007; corrected Mar 23 2007

Keywords

Examples

			10 --> 1^2+0^2 = 1+0 =1
13 --> 1^2+3^2 = 1+9 = 10
23 --> 2^2+3^2 = 4+9 =13
1233 --> 1^2+2^2+3^3+3^2 = 1+4+9+9 = 23
33999999999999999 = 3^2*2 + 9^2*15 = 1233
		

Crossrefs

Extensions

Next term is greater than 10^419753086419753. [From Charles R Greathouse IV, Nov 13 2010]

A136276 Consider pairs of nonnegative integers (m,k) such that 2^2 + 4^2 + 6^2 + ... + (2m)^2 = k(k+1); sequence gives k values.

Original entry on oeis.org

0, 4, 7, 84
Offset: 1

Views

Author

Ken Knowlton (www.KnowltonMosaics.com), Mar 29 2008

Keywords

Comments

The problem arises when trying to build a square pyramid out of dominoes. The solution (m,k) = (3,7) for example corresponds to building a pyramid with layers of sizes 2 X 2, 4 X 4 and 6 X 6 from one set of double-6 dominoes.
The three nonzero solutions use one double-3 set, one double-6 set and one double-83 set. (The sequence 3,6,83 is too short to warrant a separate entry.)
The problem is equivalent to finding integers (m,k) such that 2m(m+1)(m+2)/3 = k*(k+1). This is a nonsingular cubic, so by Siegel's theorem, there are only finitely many solutions. - N. J. A. Sloane, May 25 2008. See also the articles by Stroeker and Tzanakis and Stroeker and de Weger.

Examples

			The known solutions are (m,k) = (0,0), (2,4), (3,7) and (17,84). There are no other solutions.
		

Crossrefs

Programs

  • Maple
    Simple-minded Maple program from N. J. A. Sloane:
    f1:=m-> 1+8*m*(m+1)*(2*m+1)/3;
    for m from 0 to 10^8 do if issqr(f1(m)) then lprint( m, (-1+sqrt(f1(m)))/2); fi; od;

Extensions

Edited by N. J. A. Sloane, May 25 2008, Aug 17 2008
May 26 2008: John Cannon used MAGMA to show there are no further solutions (see link)
Showing 1-4 of 4 results.