OFFSET
1,6
MATHEMATICA
T[n_, k_] := Select[Range[n-k, n+k], IntegerQ@Sqrt@#&] // Length;
Table[T[n, k], {n, 1, 14}, {k, 0, n-1}] // Flatten (* Jean-François Alcover, Sep 15 2021 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, Nov 03 2003
STATUS
approved