|
|
A029888
|
|
Convolution of Thue-Morse sequence A001285 with primes.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|