|
%I #15 Nov 29 2015 11:55:32
%S 2,9,24,51,96,165,264,399,576,805,1094,1451,1886,2405,3014,3723,4544,
%T 5485,6554,7761,9112,10615,12280,14117,16140,18361,20786,23421,26272,
%U 29345,32658,36229,40068,44183,48586,53289,58300,63631,69292
%N Convolution of odd numbers and primes.
%F a(n) = Sum_{i=0..n-1} A000040(n-i)*A005408(i). - _R. J. Mathar_, Nov 29 2015
%p A023662 := proc(n)
%p add( ithprime(n-i)*(2*i+1),i=0..n-1) ;
%p end proc: # _R. J. Mathar_, Nov 29 2015
%t Table[Sum[Prime[n - k + 1] (2 k - 1), {k, n}], {n, 39}] (* _Michael De Vlieger_, Nov 29 2015 *)
%o (PARI) a(n) = sum(i=1, n, prime(n-i+1)*(2*i-1)); \\ _Michel Marcus_, Sep 30 2013
%K nonn
%O 1,1
%A _Clark Kimberling_
|
