A029888 Convolution of Thue-Morse sequence A001285 with primes.

2, 7, 15, 25, 42, 62, 87, 116, 152, 192, 241, 296, 356, 425, 491, 569, 660, 754, 851, 960, 1072, 1179, 1311, 1447, 1584, 1745, 1899, 2055, 2220, 2388, 2573, 2778, 2992, 3188, 3415, 3640, 3868, 4125, 4383

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

Programs

Mathematica

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