A055872 -id:A055872 - cp's OEIS frontend

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

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

M. F. Hasler, Jan 15 2012

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

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).

CoefficientList[Series[(x^4 (1+2x))/(1-6x^2+x^4),{x,0,40}],x] (* Harvey P. Dale, Nov 30 2020 *)

b=8;for(n=1,1e7,issquare(n^2\b) & print1(sqrtint(n^2\b)","))

a(n)=polcoeff((2*x^5 + x^4)/(x^4 - 6*x^2 + 1+O(x^n)),n)

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

A204504 A204512(n)^2 = floor[A055872(n)/8]: Squares such that appending some digit in base 8 yields another square.

Original entry on oeis.org

0, 0, 0, 1, 4, 36, 144, 1225, 4900, 41616, 166464, 1413721, 5654884, 48024900, 192099600, 1631432881, 6525731524, 55420693056, 221682772224, 1882672131025, 7530688524100, 63955431761796, 255821727047184, 2172602007770041, 8690408031080164, 73804512832419600

Offset: 1

M. F. Hasler, Jan 15 2012

Base-8 analog of A202303.

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).

b=8;for(n=1,2e9,issquare(n^2\b) & print1((n^2\b)","))

a(n)=polcoeff(x^4*(1 + 4*x + x^2 + 4*x^3)/(1 - 35*x^2 + 35*x^4 - x^6+O(x^n)), n)

a(n)=A204512(n)^2.

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

A023110 Squares which remain squares when the last digit is removed.

Original entry on oeis.org

0, 1, 4, 9, 16, 49, 169, 256, 361, 1444, 3249, 18496, 64009, 237169, 364816, 519841, 2079364, 4678569, 26666896, 92294449, 341991049, 526060096, 749609641, 2998438564, 6746486769, 38453641216, 133088524969, 493150849009, 758578289296, 1080936581761

Offset: 1

David W. Wilson

This A023110 = A031149^2 is the base 10 version of A001541^2 = A055792 (base 2), A001075^2 = A055793 (base 3), A004275^2 = A055808 (base 4), A204520^2 = A055812 (base 5), A204518^2 = A055851 (base 6), A204516^2 = A055859 (base 7), A204514^2 = A055872 (base 8) and A204502^2 = A204503 (base 9). - M. F. Hasler, Sep 28 2014

For the first 4 terms the square has only one digit. It is understood that deleting this digit yields 0. - Colin Barker, Dec 31 2017

R. K. Guy, Neg and Reg, preprint, Jan 2012.

Jon E. Schoenfield, Table of n, a(n) for n = 1..70 (terms 1..38 from David W. Wilson, terms 39..40 from Robert G. Wilson v, terms 41..67 from Dmitry Petukhov)
M. F. Hasler, Truncated squares, OEIS wiki, Jan 16 2012
Joshua Stucky, Pell's Equation and Truncated Squares, Number Theory Seminar, Kansas State University, Feb 19 2018.
Index to sequences related to truncating digits of squares.

Cf. A023111.
Cf. A031150, A053784, A031149, A055792, A055793, A055808, A055812, A055851, A055859, A055872.
Cf. A001541, A001075, A004275, A204520, A204518, A204516, A204514, A204502, A204503.

count:= 1: A[1]:= 0:
for n from 0 while count < 35 do
  for t in [1,4,6,9] do
    if issqr(10*n^2+t) then
       count:= count+1;
       A[count]:= 10*n^2+t;
    fi
  od
od:
seq(A[i],i=1..count); # Robert Israel, Sep 28 2014

fQ[n_] := IntegerQ@ Sqrt@ Quotient[n^2, 10]; Select[ Range@ 1000000, fQ]^2 (* Robert G. Wilson v, Jan 15 2011 *)

for(n=0,1e7, issquare(n^2\10) & print1(n^2",")) \\  M. F. Hasler, Jan 16 2012

Appears to satisfy a(n)=1444*a(n-7)+a(n-14)-76*sqrt(a(n-7)*a(n-14)) for n >= 16. For n = 15, 14, 13, ... this would require a(1) = 16, a(0) = 49, a(-1) = 169, ... - Henry Bottomley, May 08 2001; edited by Robert Israel, Sep 28 2014
a(n) = A031149(n)^2. - M. F. Hasler, Sep 28 2014
Conjectures from Colin Barker, Dec 31 2017: (Start)
G.f.: x^2*(1 + 4*x + 9*x^2 + 16*x^3 + 49*x^4 + 169*x^5 + 256*x^6 - 1082*x^7 - 4328*x^8 - 9738*x^9 - 4592*x^10 - 6698*x^11 - 6698*x^12 - 4592*x^13 + 361*x^14 + 1444*x^15 + 3249*x^16 + 256*x^17 + 169*x^18 + 49*x^19 + 16*x^20) / ((1 - x)*(1 + x + x^2 + x^3 + x^4 + x^5 + x^6)*(1 - 1442*x^7 + x^14)).
a(n) = 1443*a(n-7) - 1443*a(n-14) + a(n-21) for n>22.
(End)

More terms from M. F. Hasler, Jan 16 2012

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

M. F. Hasler, Jan 15 2012

nonn

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.)

M. F. Hasler, Truncated squares, OEIS wiki, Jan 16 2012
Index to sequences related to truncating digits of squares.

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).

Select[Range[0,200],IntegerQ[Sqrt[Floor[#^2/9]]]&] (* Harvey P. Dale, May 05 2018 *)

b=9;for(n=0,200,issquare(n^2\b) & print1(n","))

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]

A204503 Squares n^2 such that floor(n^2/9) is again a square.

Original entry on oeis.org

0, 1, 4, 9, 16, 36, 81, 144, 225, 324, 441, 576, 729, 900, 1089, 1296, 1521, 1764, 2025, 2304, 2601, 2916, 3249, 3600, 3969, 4356, 4761, 5184, 5625, 6084, 6561, 7056, 7569, 8100, 8649, 9216, 9801, 10404, 11025, 11664, 12321, 12996, 13689, 14400, 15129, 15876

Offset: 1

M. F. Hasler, Jan 15 2012

Or: Squares which remain squares when their last base-9 digit is dropped.
(For the first three terms, which have only 1 digit in base 9, dropping that digit is meant to yield zero.)
Base-9 analog of A055792 (base 2), A055793 (base 3), A055808 (base 4), A055812 (base 5), A055851 (base 6), A055859 (base 7), A055872(base 8) and A023110 (base 10).

M. F. Hasler, Truncated squares, OEIS wiki, Jan 16 2012
Index to sequences related to truncating digits of squares.

Select[Range[0,200]^2,IntegerQ[Sqrt[Floor[#/9]]]&] (* Harvey P. Dale, Jan 27 2012 *)

b=9;for(n=1,200,issquare(n^2\b) & print1(n^2,","))

a(n) = A204502(n)^2.

Conjectures: a(n) = 9*(n-4)^2 for n>5. G.f.: x^2*(7*x^6-12*x^5-11*x^4-x-1) / (x-1)^3. - Colin Barker, Sep 15 2014

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

M. F. Hasler, Jan 15 2012

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

M. F. Hasler, Truncated squares, OEIS wiki, Jan 16 2012
Index to sequences related to truncating digits of squares.
Index entries for linear recurrences with constant coefficients, signature (0,6,0,-1).

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.

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

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 *)

b=8;for(n=0,1e7,issquare(n^2\b) & print1(n","))

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)

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

A204517 Square root of floor[A055859(n)/7].

Original entry on oeis.org

0, 0, 0, 1, 3, 6, 17, 48, 96, 271, 765, 1530, 4319, 12192, 24384, 68833, 194307, 388614, 1097009, 3096720, 6193440, 17483311, 49353213, 98706426, 278635967, 786554688, 1573109376, 4440692161, 12535521795, 25071043590, 70772438609, 199781794032, 399563588064

Offset: 1

M. F. Hasler, Jan 15 2012

nonn

M. F. Hasler, Truncated squares, OEIS wiki, Jan 16 2012
Index to sequences related to truncating digits of squares.

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).

b=7;for(n=1,2e9,issquare(n^2\b) & print1(sqrtint(n^2\b),","))

A204517(n)=polcoeff((x^4 + 3*x^5 + 6*x^6 + x^7)/(1 - 16*x^3 + x^6+O(x^n)),n)

A204517(n) = sqrt(floor(A204516(n)^2/7)).

G.f. = (x^4 + 3*x^5 + 6*x^6 + x^7)/(1 - 16*x^3 + x^6)

A204575 Squares such that [a(n)/2] is again a square (A055792), written in binary.

Original entry on oeis.org

0, 1, 1001, 100100001, 10011001001001, 1010001010010000001, 101011001001001011001001, 10110111001100110101000100001, 1100001001111011011000010110001001, 110011100111010101001010101001000000001

Offset: 1

M. F. Hasler, Jan 16 2012

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).

A204576 Floor[A055792(n-1)/2]=A084703(n-2) (truncated squares), written in binary.

Original entry on oeis.org

0, 0, 100, 10010000, 1001100100100, 101000101001000000, 10101100100100101100100, 1011011100110011010100010000, 110000100111101101100001011000100, 11001110011101010100101010100100000000, 1101101100101100000000000111010111101000100

Offset: 1

M. F. Hasler, Jan 16 2012

A204575 with the last (binary) digit (necessarily = 1, except for a(1)=0) deleted.

Also: Squares, written in binary, such that appending a (binary) digit (necessarily = 1) yields another square (except for a(1)=0 which corresponds to A204575(1)=00, the only square which remains square when multiplied by 2).

David W. Wilson, Table of n, a(n) for n = 1..100

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).

A204513 A204517(n)^2 = floor[A055859(n)/7]: Squares which written in base 7, with some digit appended, yield another square.

Original entry on oeis.org

0, 0, 0, 1, 9, 36, 289, 2304, 9216, 73441, 585225, 2340900, 18653761, 148644864, 594579456, 4737981889, 37755210249, 151020840996, 1203428746081, 9589674758400, 38358699033600, 305666163522721, 2435739633423369, 9742958533693476, 77638002106025089, 618668277214777344, 2474673108859109376, 19719746868766849921, 157139306672920022025, 628557226691680088100, 5008738066664673854881, 39912765226644470817024, 159651060906577883268096

Offset: 1

M. F. Hasler, Jan 15 2012

Base-7 analog of A202303.

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).

b=7;for(n=0,200,issquare(n^2\b) & print1(n^2\b,","))

A204513(n)=polcoeff((x^4 + 9*x^5 + 36*x^6 + 34*x^7 + 9*x^8 + 36*x^9 + x^10)/(1 - 255*x^3 + 255*x^6 - x^9+O(x^n)),n)

G.f. = (x^4 + 9*x^5 + 36*x^6 + 34*x^7 + 9*x^8 + 36*x^9 + x^10)/(1 - 255*x^3 + 255*x^6 - x^9)

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A204504 A204512(n)^2 = floor[A055872(n)/8]: Squares such that appending some digit in base 8 yields another square.

Views

Author

Keywords

Comments

Crossrefs

Programs

PARI

PARI

Formula

A023110 Squares which remain squares when the last digit is removed.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

Extensions

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A204503 Squares n^2 such that floor(n^2/9) is again a square.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

PARI

Formula

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

PARI

Formula

A204517 Square root of floor[A055859(n)/7].

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

PARI

Formula