OFFSET
0,5
COMMENTS
a(0) = 0 by convention.
LINKS
Vincenzo Librandi, Rows n = 0..100, flattened
EXAMPLE
First deviation from A007318 is at a(40) = T(8,4) because binomial(8,4)=70 and 70 mod 64 = 6.
MATHEMATICA
Flatten[Table[Table[Mod[Binomial[n, j], n^2], {j, 0, n}], {n, 1, 20}], 1]
PROG
(PARI) T(m, n)=binomial(m, n)%m^2 \\ Charles R Greathouse IV, Jul 29 2014
(Python)
from math import comb, isqrt
def A094495(n): return comb(r:=(m:=isqrt(k:=n+1<<1))-(k<=m*(m+1)), n-comb(r+1, 2))%(r**2) if n else 0 # Chai Wah Wu, Apr 30 2025
CROSSREFS
KEYWORD
AUTHOR
Labos Elemer, Jun 02 2004
STATUS
approved
