OFFSET
1,1
COMMENTS
Prime factors are counted with multiplicity. [from Harvey P. Dale, Aug 19 2011]
MATHEMATICA
f[n_]:=Module[{mn=Mean[n]}, mn-PrimeOmega[mn]]; f/@Select[Partition[ Prime[ Range[300]], 2, 1], Last[#]-First[#]==2&] (* Harvey P. Dale, Aug 19 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 28 2010
EXTENSIONS
Formula index, a(8), a(15) and a(23) corrected by R. J. Mathar, May 01 2010
STATUS
approved