OFFSET
1,1
EXAMPLE
The fourth row of A095195 is: (7, 2, 0, -1), so a(4) = 10.
MATHEMATICA
nn=15;
t=Table[Take[Differences[NestList[NestWhile[#+1&, #+1, !PrimeQ[#]&]&, 2, 2*nn], k], nn], {k, 0, nn}]
Total/@Abs/@Table[t[[j, i-j+1]], {i, nn}, {j, i}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 15 2024
EXTENSIONS
More terms from Pontus von Brömssen, Oct 17 2024
STATUS
approved