A237276 - OEIS

%I #13 Feb 09 2021 01:56:51

%S 1,5,8,18,19,23,27,28,34,36,37,44,45,50,54,55,59,62,64,72,73,77,81,82,

%T 86,89,91,95,98,99,100,110,112,113,116,117,118,119,122,128,134,137,

%U 139,140,143,146,148,149,150,152,154,155,157,158,161,166,168,170

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

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

%H Clark Kimberling, <a href="/A237276/b237276.txt">Table of n, a(n) for n = 1..1000</a>

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

%t f[n_, k_] := Select[Range[250], Mod[PartitionsP[#], n] == k &]

%t Table[f[3, k], {k, 0, 2}] (* A083214, A237276, A237277 *)

%t Table[f[4, k], {k, 0, 3}] (* A237278-A237281 *)

%Y Cf. A000041, A083214, A237277.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Feb 05 2014