|
%I #9 Aug 06 2017 20:56:47
%S 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,
%T 42,42,55,53,56,31,63,57,58,50,50,55,57,54,52,47,71,79,87,69,82,62,65,
%U 76,90,66,94,77,77,82,75,72,79,92,89,88,69,87,91,71,92,103,117,93,103
%N Digit sums of Cullen numbers.
%H Harvey P. Dale, <a href="/A146179/b146179.txt">Table of n, a(n) for n = 1..1000</a>
%e The sum of all the digits of the Cullen number 49153 is 22.
%p 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
%t Table[Total[IntegerDigits[2^n n+1]],{n,0,70}] (* _Harvey P. Dale_, Jun 10 2013 *)
%Y Cf. A002064.
%K nonn,base
%O 1,2
%A _Parthasarathy Nambi_, Oct 27 2008
%E More terms from _R. J. Mathar_, Jul 08 2009
|
