A237276 Numbers k such that A000041(k) == 1 (mod 3).

0, 1, 5, 8, 18, 19, 23, 27, 28, 34, 36, 37, 44, 45, 50, 54, 55, 59, 62, 64, 72, 73, 77, 81, 82, 86, 89, 91, 95, 98, 99, 100, 110, 112, 113, 116, 117, 118, 119, 122, 128, 134, 137, 139, 140, 143, 146, 148, 149, 150, 152, 154, 155, 157, 158, 161, 166, 168, 170

Offset

1,3

Comments

The set of positive integers is partitioned by A083214, A237276, and A237277.

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Clark Kimberling)

Example

A000041(8) = 22 == 1 (mod 3).

Mathematica

f[n_, k_] := Select[Range[0, 250], Mod[PartitionsP[#], n] == k &]
Table[f[3, k], {k, 0, 2}] (* A083214, A237276, A237277 *)
Table[f[4, k], {k, 0, 3}] (* A237278-A237281 *)

Crossrefs

Cf. A000041, A083214, A237276, A237277.

Sequence in context: A359949 A390258 A291752 * A155086 A219049 A245534

Adjacent sequences: A237273 A237274 A237275 * A237277 A237278 A237279

Keyword

nonn,easy

Author

Clark Kimberling, Feb 05 2014

Extensions

a(1)=0 inserted by Amiram Eldar, May 22 2025

Status

approved