|
%I #13 Sep 08 2022 08:46:05
%S 0,0,0,0,1,0,0,0,2,1,0,1,0,0,0,0,0,4,0,0,0,1,1,0,1,0,0,0,0,0,1,0,0,0,
%T 1,1,0,1,0,0,0,0,0,1,0,0,0,3,1,0,1,0,0,0,0,0,2,0,0,0,1,1,0,1,0,0,0,0,
%U 0,1,0,0,0,1,1,0,1,0,0,0,0,0,1,0,0,0,2,1,0,1,0,0,0,0,0,2,0,0,0,1,1
%N 3^a(n) is the highest power of 3 dividing A000110(n).
%C This is the 3-adic valuation of the Bell numbers A000110.
%C The 2-adic valuation is less interesting: 0, 0, 1, 0, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 2, ...
%H Amiram Eldar, <a href="/A227840/b227840.txt">Table of n, a(n) for n = 0..10000</a>
%t Table[IntegerExponent[BellB[n], 3], {n, 0, 100}] (* _Amiram Eldar_, Nov 23 2019 *)
%o (Magma) [Valuation(Bell(n), 3): n in [0..110]]; // _Bruno Berselli_, Aug 05 2013
%Y Cf. A000110, A007949.
%K nonn
%O 0,9
%A _N. J. A. Sloane_, Aug 05 2013
|
