OFFSET
1,1
MATHEMATICA
a[1] = 2; a[2] = 3; a[n_] := a[n] = 2*a[n - 1] - a[n - 2] + 2*(Prime[n + 1] - Prime[n]); Table[a[n], {n, 1, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 18 2006
EXTENSIONS
Edited by N. J. A. Sloane, Oct 23 2006
More terms from Amiram Eldar, Jun 04 2025
STATUS
approved
