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
Crossrefs
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)
Comments