%I #6 Nov 21 2013 12:49:38
%S 2,3,10,21,66,91,170,209,322,551,620,925,1148,1247,1504,1961,2478,
%T 2623,3216,3621,3796,4503,4980,5785,6984,7575,7828,8453,8720,9379,
%U 12192,12969,14248,14595,16986,17365,18840,20375,21376,23009,24702,25159,28268,28757
%N prime(n)*( prime(n)-n ).
%F a(n) = A000040(n)*A014689(n) = A001248(n)-A033286(n).
%t f[n_]:=Module[{pn=Prime[n]},pn(pn-n)];Array[f,50] (* _Harvey P. Dale_, Sep 23 2011 *)
%Y Cf. A000040, A014689.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jun 12 2009
%E Entries checked by _R. J. Mathar_, Sep 23 2009