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

A077347 Final terms of rows of A077346.

Original entry on oeis.org

1, 225, 361, 441, 5329, 6400, 7744, 80089, 90000, 101124, 112896, 122500, 135424, 145924, 157609, 165649, 179776, 1806336, 1901641, 2013561, 2114116, 2220100, 2325625, 2427364, 2528100, 2637376, 2742336, 2845969, 2951524, 3059001
Offset: 1

Views

Author

Amarnath Murthy, Nov 05 2002

Keywords

Comments

a(n) = n-th square beginning with n. A018796 contains initial terms of rows. Subsidiary sequence: There can be a rearrangement of squares in groups so that the n-th group contains n squares beginning with n and not occurring earlier. E.g., the initial term of row 25 would be 256 and not 25 and accordingly the final terms would differ.

Crossrefs

Programs

  • Maple
    startsWith := proc(n,dig) local nshft ; nshft := n ; while nshft > dig do nshft := floor(nshft/10) ; od ; if dig = nshft then RETURN(true) ; else RETURN(false) ; fi ; end: A077347 := proc(n) local candid,c; candid := 1 ; for c from 1 to n do while not startsWith(candid^2,n) do candid := candid+1 ; od ; if c = n then RETURN(candid^2) ; fi ; candid := candid+1 ; od ; end: for n from 1 to 50 do printf("%a,",A077347(n)) ; od ; # R. J. Mathar, Nov 12 2006

Extensions

More terms from R. J. Mathar, Nov 12 2006

A077348 a(n) = A077346(n)^(1/2).

Original entry on oeis.org

1, 5, 15, 6, 18, 19, 2, 7, 20, 21, 23, 24, 71, 72, 73, 8, 25, 26, 78, 79, 80, 27, 28, 84, 85, 86, 87, 88, 9, 29, 90, 91, 92, 93, 94, 283, 3, 30, 31, 95, 96, 97, 98, 99, 300, 10, 32, 33, 100, 101, 102, 103, 104, 317, 318, 34, 105, 106, 107, 108, 109, 332, 333, 334, 335, 336
Offset: 1

Views

Author

Amarnath Murthy, Nov 05 2002

Keywords

Examples

			Triangle begins:
   1;
   5, 15;
   6, 18, 19;
   2,  7, 20, 21;
  23, 24, 71, 72, 73;
  ...
		

Crossrefs

Programs

  • PARI
    row(n) = my(list=List(), k=1); while (#list != n, if (strsplit(Str(k^2), Str(n))[1] == "", listput(list, k)); k++); Vec(list); \\ Michel Marcus, Feb 08 2023

Extensions

More terms from Michel Marcus, Feb 08 2023

A077349 a(n) = A077347(n)^(1/2).

Original entry on oeis.org

1, 15, 19, 21, 73, 80, 88, 283, 300, 318, 336, 350, 368, 382, 397, 407, 424, 1344, 1379, 1419, 1454, 1490, 1525, 1558, 1590, 1624, 1656, 1687, 1718, 1749, 1779, 1806, 1836, 1865, 1895, 1918, 1949, 6165, 6247, 6326, 6409, 6487, 6565, 6641, 6720, 6795, 6868, 6943, 7013, 7089
Offset: 1

Views

Author

Amarnath Murthy, Nov 05 2002

Keywords

Crossrefs

Main diagonal of A077348.

Programs

Extensions

a(8) onwards from Andrew Howroyd, Dec 11 2024
Showing 1-3 of 3 results.