A036475 a(n) = partition(11n+1) mod 11.

1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 2, 2, 2, 3, 2, 3, 3, 3, 3, 4, 3, 4, 3, 4, 4, 5, 4, 5, 5, 6, 5, 7, 6, 7, 7, 7, 7, 9, 8, 9, 9, 10, 9, 0, 10, 1, 0, 2, 1, 3, 2, 4, 4, 5, 5, 7, 6, 8, 8, 9, 9, 1, 0, 2, 2, 4, 3, 6, 5, 8, 8, 10, 10, 2, 1, 4, 4, 7, 6, 10, 9, 2, 2, 5, 5, 9, 8, 1, 2, 5, 5

Offset

0,13

Links

Amiram Eldar, Table of n, a(n) for n = 0..10000

Formula

a(n) = A020919(11*n + 1). - Amiram Eldar, Aug 01 2025

Mathematica

a[n_] := Mod[PartitionsP[11*n + 1], 11]; Array[a, 100, 0] (* Amiram Eldar, Aug 01 2025 *)

Prog

(PARI) a(n) = numbpart(11*n + 1) % 11; \\ Amiram Eldar, Aug 01 2025

Crossrefs

Cf. A000041, A020919.

partition(11n+k): A036485 (k=0), this sequence (k=1), A036476 (k=2), A036477 (k=3), A036478 (k=4), A036479 (k=5), A000004 (k=6), A036480 (k=7), A036481 (k=8), A036482 (k=9), A036483 (k=10).

Sequence in context: A318464 A051265 A008647 * A330746 A316555 A337531

Adjacent sequences: A036472 A036473 A036474 * A036476 A036477 A036478

Keyword

nonn,easy

Author

David W. Wilson

Extensions

Offset corrected by Amiram Eldar, Aug 01 2025

Status

approved