A126199 a(n) = prime(n)*prime(n+1) + prime(n) + prime(n+1).

11, 23, 47, 95, 167, 251, 359, 479, 719, 959, 1215, 1595, 1847, 2111, 2591, 3239, 3719, 4215, 4895, 5327, 5919, 6719, 7559, 8819, 9995, 10607, 11231, 11879, 12539, 14591, 16895, 18215, 19319, 20999, 22799, 24015, 25911, 27551, 29231, 31319, 32759

Offset: 1

Author

Jonathan Vos Post, Mar 08 2007

Keywords

• easy
• nonn

Crossrefs

Cf. A000040, A001043, A006094, A126148, A096342, A180617.

Programs

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 *)

Formula

a(n) = A180617(n) - 1. - Omar E. Pol, Dec 08 2019

Extensions

More terms from Robert G. Wilson v, Mar 09 2007