%I #16 Sep 08 2022 08:45:38
%S 1,1,2,5,1,3,0,2,3,0,6,4,3,2,5,3,6,3,0,5,0,1,2,2,3,5,5,1,3,4,5,1,3,6,
%T 4,0,2,6,4,2,3,4,2,1,3,6,5,0,6,3,4,2,4,5,6,2,0,6,6,2,4,1,2,6,5,1,6,5,
%U 3,1,4,6,0,4,1,4,5,3,6,4,5,5,2,1,2,3,2,3,0,3,3,5,5,5,3,3,6,1,3,3,1,6,2,0,4
%N Bell numbers (A000110) read mod 7.
%H G. C. Greubel, <a href="/A146097/b146097.txt">Table of n, a(n) for n = 0..10000</a>
%H W. F. Lunnon, P. A. B. Pleasants, and N. M. Stephens, <a href="http://matwbn.icm.edu.pl/ksiazki/aa/aa35/aa3511.pdf">Arithmetic properties of Bell numbers to a composite modulus I</a>, Acta Arithmetica 35 (1979), pp. 1-16.
%F a(n+137257) = a(n). - _G. C. Greubel_, Jan 31 2016
%p seq(combinat:-bell(n) mod 7, n=0..100); # _Robert Israel_, Jan 31 2016
%t Mod[BellB[Range[0, 100]], 7] (* _G. C. Greubel_, Jan 31 2016 *)
%o (Magma) [Bell(n) mod 7: n in [0..100]]; // _Vincenzo Librandi_, Feb 01 2016
%Y Cf. A000110, A146094, A146095, A146096, A146098, A146099, A146100.
%K nonn
%O 0,3
%A _N. J. A. Sloane_, Feb 07 2009