|
|
A204504
|
|
A204512(n)^2 = floor[A055872(n)/8]: Squares such that appending some digit in base 8 yields another square.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,5
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
G.f. = x^4*(1 + 4*x + x^2 + 4*x^3)/(1 - 35*x^2 + 35*x^4 - x^6)
|
|
PROG
|
(PARI) b=8; for(n=1, 2e9, issquare(n^2\b) & print1((n^2\b)", "))
(PARI) 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)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|