login
Sum of digits of Bell numbers.
1

%I #12 Sep 08 2022 08:44:32

%S 1,1,2,5,6,7,5,22,9,15,28,33,31,37,43,50,32,63,58,50,55,78,69,64,105,

%T 94,91,118,104,101,96,121,122,139,141,102,163,150,154,172,145,164,185,

%U 186,187,194,184,153,186,172,231,211,226,196,230,266,243,247,248,280,312,285

%N Sum of digits of Bell numbers.

%H Vincenzo Librandi, <a href="/A004097/b004097.txt">Table of n, a(n) for n = 0..1000</a>

%t Table[Plus@@IntegerDigits@(BellB[n]), {n, 0, 90}] (* _Vincenzo Librandi_, Jun 01 2019 *)

%o (Magma)[&+Intseq(Bell(n)): n in [0..100] ]; // _Vincenzo Librandi_, Jun 01 2019

%Y Cf. A000110, A007953.

%K nonn,base

%O 0,3

%A _N. J. A. Sloane_