%I #8 Aug 03 2014 14:01:26
%S 2,3,5,6,9,10,15,16,19,19,26,26,28,29,31,36,41,42,47,47,47,50,56,58,
%T 61,68,68,75,71,75,81,80,78,84,89,97,103,100,108,111,103,108,113,121,
%U 114,124,121,132,132,124,141,135,141,148,142,157,158,153,163,170,175,168
%N n-th semiprime minus sum of prime indices of the two factors of n-th semiprime.
%F a(n)=A001358(n)-A176504(n).
%t nn = 200; Sort[Reap[Do[n = Prime[i] * Prime[j] - i - j; If[n <= nn, Sow[n]], {i, PrimePi[nn/2]}, {j, i}]][[2, 1]]] (* _T. D. Noe_, Mar 16 2011 *)
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, May 30 2010
%E Corrected (replaced 75 by 81) by _R. J. Mathar_, May 31 2010
|