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