A161522 prime(n)*( prime(n)-n ).

2, 3, 10, 21, 66, 91, 170, 209, 322, 551, 620, 925, 1148, 1247, 1504, 1961, 2478, 2623, 3216, 3621, 3796, 4503, 4980, 5785, 6984, 7575, 7828, 8453, 8720, 9379, 12192, 12969, 14248, 14595, 16986, 17365, 18840, 20375, 21376, 23009, 24702, 25159, 28268, 28757

Offset: 1

Author

Juri-Stepan Gerasimov, Jun 12 2009

Keywords

• nonn

Crossrefs

Cf. A000040, A014689.

Programs

Mathematica

f[n_]:=Module[{pn=Prime[n]},pn(pn-n)];Array[f,50] (* Harvey P. Dale, Sep 23 2011 *)

Formula

a(n) = A000040(n)*A014689(n) = A001248(n)-A033286(n).

Extensions

Entries checked by R. J. Mathar, Sep 23 2009