login
Binomial transform of odd primes.
2

%I #6 Dec 19 2020 09:31:21

%S 3,8,20,50,122,290,674,1538,3462,7720,17104,37708,82768,180880,393488,

%T 851914,1835470,3935808,8402158,17865738,37858268,79991512,168605710,

%U 354649382,744605426,1560666296,3265699888,6822355756,14229565634

%N Binomial transform of odd primes.

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

%t 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

%t Differences[Table[Sum[Binomial[n-1, k-1]*Prime[k], {k, 1, n}], {n, 1, 30}]] (* _Vaclav Kotesovec_, Dec 19 2020 *)

%Y First differences of A007443.

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, May 21 2010