OFFSET
1,1
COMMENTS
03 05 07 11 13 08 12 18 24 20 30 42 50 72 122
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 21 2010
STATUS
approved