A004097 Sum of digits of Bell numbers.

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, 94, 91, 118, 104, 101, 96, 121, 122, 139, 141, 102, 163, 150, 154, 172, 145, 164, 185, 186, 187, 194, 184, 153, 186, 172, 231, 211, 226, 196, 230, 266, 243, 247, 248, 280, 312, 285

Offset

0,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Mathematica

Table[Plus@@IntegerDigits@(BellB[n]), {n, 0, 90}] (* Vincenzo Librandi, Jun 01 2019 *)

Prog

(Magma)[&+Intseq(Bell(n)): n in [0..100] ]; // Vincenzo Librandi, Jun 01 2019

Crossrefs

Cf. A000110, A007953.

Sequence in context: A278084 A225366 A146099 * A262368 A198547 A120678

Adjacent sequences: A004094 A004095 A004096 * A004098 A004099 A004100

Keyword

nonn,base

Author

N. J. A. Sloane

Status

approved