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,1

Links

Table of n, a(n) for n=0..38.

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

Crossrefs

Sequence in context: A332495 A184976 A194140 * A194112 A005449 A293401

Adjacent sequences: A029885 A029886 A029887 * A029889 A029890 A029891

Keyword

nonn

Author

N. J. A. Sloane

Status

approved