OFFSET
0,6
FORMULA
a(n) = floor(sqrt(Fine(n))).
MAPLE
b:= proc(n) option remember; `if`(n<3, n*(2-n),
((7*n-12)*b(n-1)+(4*n-6)*b(n-2))/(2*n))
end:
a:= n-> floor(sqrt(b(n))):
seq(a(n), n=0..40); # Alois P. Heinz, Apr 26 2023
MATHEMATICA
FSFromSeries[f_, x_, n_] := Map[Floor[Sqrt[#]]&, CoefficientList[Series[f, {x, 0, n}], x]]
FSFromSeries[(1+2x-Sqrt[1-4x])/(2x(2+x)), x, 100]
PROG
(Python)
from math import isqrt
from itertools import count, islice
def A192675_gen(): # generator of terms
yield from (0, 1, 0)
a, c = 0, 1
for n in count(1):
yield isqrt(a:=(c:=c*((n<<2)+2)//(n+2))-a>>1)
CROSSREFS
KEYWORD
nonn
AUTHOR
Emanuele Munarini, Jul 07 2011
EXTENSIONS
a(0) inserted by Chai Wah Wu, Apr 26 2023
STATUS
approved