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.

A204502 Numbers such that floor[a(n)^2 / 9] is a square.

Original entry on oeis.org

0, 1, 2, 3, 4, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60, 63, 66, 69, 72, 75, 78, 81, 84, 87, 90, 93, 96, 99, 102, 105, 108, 111, 114, 117, 120, 123, 126, 129, 132, 135, 138, 141, 144, 147, 150, 153, 156, 159, 162, 165, 168, 171, 174, 177
Offset: 1

Views

Author

M. F. Hasler, Jan 15 2012

Keywords

Comments

Or, numbers n such that n^2, with its last base-9 digit dropped, is again a square. (Except maybe for the 3 initial terms whose square has only 1 digit in base 9.)

Links

Crossrefs

The squares are in A204503, the squares with last base-9 digit dropped in A204504, and the square roots of the latter in A028310.
Cf. A031149=sqrt(A023110) (base 10), A204514=sqrt(A055872) (base 8), A204516=sqrt(A055859) (base 7), A204518=sqrt(A055851) (base 6), A204520=sqrt(A055812) (base 5), A004275=sqrt(A055808) (base 4), A001075=sqrt(A055793) (base 3), A001541=sqrt(A055792) (base 2).

Programs

  • Mathematica
    Select[Range[0,200],IntegerQ[Sqrt[Floor[#^2/9]]]&] (* Harvey P. Dale, May 05 2018 *)
  • PARI
    b=9;for(n=0,200,issquare(n^2\b) & print1(n","))

Formula

Conjecture: a(n) = 3*n-12 for n>5. G.f.: x^2*(x^2+x+1)*(x^3-x+1)/(x-1)^2. [Colin Barker, Nov 23 2012]

A204514 Numbers such that floor(a(n)^2 / 8) is again a square.

Original entry on oeis.org

0, 1, 2, 3, 6, 17, 34, 99, 198, 577, 1154, 3363, 6726, 19601, 39202, 114243, 228486, 665857, 1331714, 3880899, 7761798, 22619537, 45239074, 131836323, 263672646, 768398401, 1536796802, 4478554083, 8957108166, 26102926097, 52205852194, 152139002499, 304278004998, 886731088897
Offset: 1

Views

Author

M. F. Hasler, Jan 15 2012

Keywords

Comments

Or: Numbers whose square, with its last base-8 digit dropped, is again a square. (Except maybe for the 3 initial terms whose square has only 1 digit in base 8.)
See A204504 for the squares resulting from truncation of a(n)^2, and A204512 for their square roots. - M. F. Hasler, Sep 28 2014

Links

Crossrefs

Cf. A031149=sqrt(A023110) (base 10), A204502=sqrt(A204503) (base 9), A204516=sqrt(A055859) (base 7), A204518=sqrt(A055851) (base 6), A204520=sqrt(A055812) (base 5), A004275=sqrt(A055808) (base 4), A001075=sqrt(A055793) (base 3), A001541=sqrt(A055792) (base 2).
Cf. A003499, A055872, A204504, A204512.

Programs

  • Maple
    A204514 := proc(n) coeftayl((x^2+2*x^3-3*x^4-6*x^5)/(1-6*x^2+x^4), x=0, n); end proc: seq(A204514(n), n=1..30); # Wesley Ivan Hurt, Sep 28 2014
  • Mathematica
    CoefficientList[Series[(x^2 + 2*x^3 - 3*x^4 - 6*x^5)/(x (1 - 6*x^2 + x^4)), {x, 0, 30}], x] (* Wesley Ivan Hurt, Sep 28 2014 *)
LinearRecurrence[{0,6,0,-1},{0,1,2,3,6},40] (* Harvey P. Dale, Nov 23 2022 *)
  • PARI
    b=8;for(n=0,1e7,issquare(n^2\b) & print1(n","))
  • PARI
    A204514(n)=polcoeff((x + 2*x^2 - 3*x^3 - 6*x^4)/(1 - 6*x^2 + x^4+O(x^(n+!n))),n-1,x)

Formula

G.f. = (x^2 + 2*x^3 - 3*x^4 - 6*x^5)/(1 - 6*x^2 + x^4).
a(n) = sqrt(A055872(n)). - M. F. Hasler, Sep 28 2014
a(2n) = A001541(n-1). a(2n+1) = A003499(n-1). - R. J. Mathar, Feb 05 2020

A204512 Square roots of [A055872/8]: Their square written in base 8, with some digit appended, is again a square.

Original entry on oeis.org

0, 0, 0, 1, 2, 6, 12, 35, 70, 204, 408, 1189, 2378, 6930, 13860, 40391, 80782, 235416, 470832, 1372105, 2744210, 7997214, 15994428, 46611179, 93222358, 271669860, 543339720, 1583407981, 3166815962, 9228778026, 18457556052, 53789260175, 107578520350
Offset: 1

Views

Author

M. F. Hasler, Jan 15 2012

Keywords

Comments

Base-8 analog of A031150. The square of the terms (= truncated squares A055872) are listed in A204504.

Crossrefs

See also A031149=sqrt(A023110) (base 10), A204502=sqrt(A204503) (base 9), A204514=sqrt(A055872) (base 8), A204516=sqrt(A055859) (base 7), A204518=sqrt(A055851) (base 6), A204520=sqrt(A055812) (base 5), A004275=sqrt(A055808) (base 4), A001075=sqrt(A055793) (base 3), A001541=sqrt(A055792) (base 2).

Programs

  • Mathematica
    CoefficientList[Series[(x^4 (1+2x))/(1-6x^2+x^4),{x,0,40}],x] (* Harvey P. Dale, Nov 30 2020 *)
  • PARI
    b=8;for(n=1,1e7,issquare(n^2\b) & print1(sqrtint(n^2\b)","))
  • PARI
    a(n)=polcoeff((2*x^5 + x^4)/(x^4 - 6*x^2 + 1+O(x^n)),n)

Formula

G.f. = x^4*(1 + 2*x)/(1 - 6*x^2 + x^4)
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.