A146179 Digit sums of Cullen numbers.

1, 3, 9, 7, 11, 8, 16, 24, 15, 19, 8, 20, 22, 27, 30, 22, 32, 23, 37, 39, 27, 25, 47, 53, 34, 42, 42, 55, 53, 56, 31, 63, 57, 58, 50, 50, 55, 57, 54, 52, 47, 71, 79, 87, 69, 82, 62, 65, 76, 90, 66, 94, 77, 77, 82, 75, 72, 79, 92, 89, 88, 69, 87, 91, 71, 92, 103, 117, 93, 103

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

The sum of all the digits of the Cullen number 49153 is 22.

Maple

A002064 := proc(n) n*2^n+1; end: A007953 := proc(n) if n < 10 then n; else add ( d, d=convert(n, base, 10) ) ; fi; end: A146179 := proc(n) A007953(A002064(n)) ; end: seq(A146179(n), n=0..80) ; # R. J. Mathar, Jul 08 2009

Mathematica

Table[Total[IntegerDigits[2^n n+1]], {n, 0, 70}] (* Harvey P. Dale, Jun 10 2013 *)

Crossrefs

Cf. A002064.

Sequence in context: A010634 A362150 A267363 * A294734 A214661 A178414

Adjacent sequences: A146176 A146177 A146178 * A146180 A146181 A146182

Keyword

nonn,base

Author

Parthasarathy Nambi, Oct 27 2008

Extensions

More terms from R. J. Mathar, Jul 08 2009

Status

approved