login
Convolution of Thue-Morse sequence A001285 with primes.
0

%I #6 Nov 18 2013 05:20:48

%S 2,7,15,25,42,62,87,116,152,192,241,296,356,425,491,569,660,754,851,

%T 960,1072,1179,1311,1447,1584,1745,1899,2055,2220,2388,2573,2778,2992,

%U 3188,3415,3640,3868,4125,4383

%N Convolution of Thue-Morse sequence A001285 with primes.

%t tm[0] = 1; tm[n_?EvenQ] := tm[n] = tm[n/2]; tm[n_] := tm[n] = 3 - tm[(n-1)/2]; a[n_] := ListConvolve[tm /@ Range[0, n], Prime /@ Range[n+1]] // First; Table[a[n], {n, 0, 38}] (* _Jean-François Alcover_, Nov 18 2013 *)

%K nonn

%O 0,1

%A _N. J. A. Sloane_.