|
%I #20 May 21 2022 08:42:01
%S 6,8,12,15,16,17,18,20,21,25,28,29,31,32,35,37,38,39,41,42,43,49,50,
%T 51,52,54,56,58,59,61,62,64,72,74,75,78,81,82,83,84,85,87,94,96,98,
%U 104,105,107,108,109,116,117,118,119,125,127,128,129,130,131,138,140,148
%N Values of k for which 11 divides A000041(k).
%H Amiram Eldar, <a href="/A027827/b027827.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[200], Divisible[PartitionsP[#], 11]&] (* _Jean-François Alcover_, Dec 12 2016 *)
%o (PARI) \ps200 for(n=0,180,if(polcoeff(1/eta(x),n,x)%11==0,print1(n,",")))
%o (PARI) is(n)=numbpart(n)%11==0 \\ _Charles R Greathouse IV_, Apr 08 2015
%Y Cf. A000041, A243935.
%K nonn
%O 1,1
%A _R. K. Guy_
%E More terms from _Benoit Cloitre_, Jun 24 2002
%E Offset corrected by _Amiram Eldar_, May 21 2022
|
