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

Author

Parthasarathy Nambi, Oct 27 2008

Keywords

• nonn
• base

Examples

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

Links

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

Crossrefs

Cf. A002064.

Programs

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 *)

Extensions

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