A178167 Binomial transform of odd primes.

3, 8, 20, 50, 122, 290, 674, 1538, 3462, 7720, 17104, 37708, 82768, 180880, 393488, 851914, 1835470, 3935808, 8402158, 17865738, 37858268, 79991512, 168605710, 354649382, 744605426, 1560666296, 3265699888, 6822355756, 14229565634

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, May 21 2010

Keywords

• nonn

Comments

03 05 07 11 13 08 12 18 24 20 30 42 50 72 122

Crossrefs

First differences of A007443.

Programs

Mathematica

q=33;lst=Prime[Range[2,q]]; lst1={First[lst]};Do[lst=Table[Abs[lst[[n]]+lst[[n+1]]],{n,1,Length[lst]-1}];AppendTo[lst1,First[lst]],{k,q-2}];lst1
Differences[Table[Sum[Binomial[n-1, k-1]*Prime[k], {k, 1, n}], {n, 1, 30}]] (* Vaclav Kotesovec, Dec 19 2020 *)