|
%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_
|
