OFFSET
1,5
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
pbfs[n_]:=Module[{f=PrimePi/@Transpose[FactorInteger[n]][[1]]}, Max[ 0, Last[f]-First[f]-1]]; pbfs/@Select[Range[300], PrimeOmega[#]==2&] (* Harvey P. Dale, Apr 09 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 19 2003
STATUS
approved