A079883 a(1) = 1; a(n) = prime(n) - prime(n-1)* a(n-1) if n > 1.
1, 1, 2, -3, 32, -339, 4424, -75189, 1428614, -32858093, 952884728, -29539426531, 1092958781688, -44811310049165, 1926886332114142, -90563657609364621, 4799873853296324972, -283192557344483173287, 17274745998013473570574, -1157407981866902729228387
Offset: 1
Keywords
Crossrefs
Cf. A069942.
Programs
-
Mathematica
t = {1}; gt = 1; For[i = 2, i <= 24, i++, gt = Prime[i] - Prime[i - 1] gt; t = Append[t, gt]]; t ListPlot[t, PlotJoined -> True]
Comments