A127319 a(n) = binomial(n, sd) mod n, with sd = sum of decimal digits of n.

0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 4, 0, 0, 10, 0, 0, 2, 0, 10, 7, 11, 0, 4, 0, 13, 3, 14, 0, 10, 0, 0, 22, 0, 0, 4, 0, 0, 13, 30, 0, 28, 0, 11, 5, 23, 0, 20, 0, 10, 34, 0, 0, 6, 0, 0, 0, 0, 0, 40, 0, 31, 7, 32, 0, 22, 0, 0, 46, 10, 0, 8, 0, 0, 50, 0, 55, 26, 0, 30, 9, 0, 0, 42, 0, 0, 0, 11, 0, 10, 0, 0

Offset

1,12

Links

Alois P. Heinz, Table of n, a(n) for n = 1..10000

Formula

a(n) = binomial(n, A007953(n)) mod n.

Maple

a:= n-> irem(binomial(n, add(i, i=convert(n, base, 10))), n):
seq(a(n), n=1..92);  # Alois P. Heinz, Aug 06 2025

Mathematica

Table[Mod[Binomial[n, Total[IntegerDigits[n]]], n], {n, 100}] (* Harvey P. Dale, Dec 19 2011 *)

Crossrefs

Cf. A007953, A127319.

Sequence in context: A391996 A244121 A127774 * A390042 A390041 A272626

Adjacent sequences: A127316 A127317 A127318 * A127320 A127321 A127322

Keyword

easy,nonn,base

Author

Paolo P. Lava and Giorgio Balzarotti, Mar 29 2007

Extensions

Definition amended and offset changed to 1 by Georg Fischer, Aug 06 2025

Status

approved