A237279 Numbers k such that A000041(k) == 1 (mod 4).

1, 4, 12, 13, 17, 18, 29, 32, 36, 37, 39, 43, 48, 49, 52, 61, 67, 69, 71, 73, 83, 85, 87, 88, 89, 90, 93, 104, 105, 107, 114, 119, 123, 132, 143, 144, 145, 148, 150, 152, 155, 157, 162, 172, 181, 185, 186, 189, 190, 193, 194, 195, 199, 203, 208, 216, 219

Offset

1,2

Comments

The set of positive integers is partitioned by the sequences A237278-A237281.

Links

Clark Kimberling, Table of n, a(n) for n = 1..1000

Example

A000041(4) = 5 == 1 (mod 4).

Mathematica

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

Crossrefs

Cf. A000041, A237276, A237278, A237280, A237281.

Sequence in context: A120252 A103053 A087760 * A032498 A144613 A031330

Adjacent sequences: A237276 A237277 A237278 * A237280 A237281 A237282

Keyword

nonn,easy

Author

Clark Kimberling, Feb 05 2014

Status

approved