OFFSET
1,1
FORMULA
a(n) = A180617(n) - 1. - Omar E. Pol, Dec 08 2019
MATHEMATICA
f[n_] := Block[{p = Prime[n], q = Prime[n + 1]}, p*q + p + q]; Array[f, 42] (* Robert G. Wilson v, Mar 09 2007 *)
Times@@#+Total[#]&/@Partition[Prime[Range[50]], 2, 1] (* Harvey P. Dale, Nov 01 2017 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Mar 08 2007
EXTENSIONS
More terms from Robert G. Wilson v, Mar 09 2007
STATUS
approved