|
%I #6 Dec 12 2016 09:12:03
%S 0,1,2,3,3,5,5,6,4,8,8,10,7,11,9,10,5,12,12,16,11,18,15,17,9,18,16,20,
%T 12,19,14,15,6,17,17,24,16,28,23,27,14,29,26,33,20,32,24,26,11,27,25,
%U 34,21,36,28,32,15,31,26,33,18,29,20,21,7,23,23,34,22,41,33,40,20,44,39,51,30,50,37,41,17,43,40,55,34,59,46,53,25,52,44,56,31,50,35
%N a(n) = A056239(A260443(n)).
%H Antti Karttunen, <a href="/A278530/b278530.txt">Table of n, a(n) for n = 0..8191</a>
%F a(n) = A056239(A260443(n)).
%o (Scheme)
%o (define (A278530 n) (sum_A000027_times_elements_in (A260443as_coeff_list n)))
%o (define (sum_A000027_times_elements_in nums) (let loop ((s 0) (nums nums) (i 1)) (cond ((null? nums) s) (else (loop (+ s (* (car nums) i)) (cdr nums) (+ 1 i))))))
%o ;; Other code as in A260443.
%Y Cf. A056239, A260443.
%Y Cf. also A276081.
%K nonn
%O 0,3
%A _Antti Karttunen_, Dec 11 2016
|
