OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..10000
MATHEMATICA
Total /@ Partition[Select[Range[50000], 2 == PrimeOmega[#] &], 2, 1] (* Zak Seidov, Jan 31 2017 *)
PROG
(PARI) isA001358(n)= { local(f, fct, sumpo); if(n <4, return(0) ); f=factor(n); fct=(matsize(f))[1]; sumpo= sum(i=1, fct, f[i, 2]); if ( sumpo != 2, return(0), return(1) ); }
{ oldn=0; for(n=4, 200, if( isA001358(n)==1, if( oldn !=0, print1(oldn+n, ", "); ); oldn=n; ); ); } \\ R. J. Mathar, May 23 2006
CROSSREFS
KEYWORD
nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 21 2006
EXTENSIONS
Corrected and extended by R. J. Mathar, May 23 2006
Edited by Ray Chandler, Oct 31 2010
STATUS
approved