OFFSET
1,1
COMMENTS
Prime factors are counted with multiplicity. - Harvey P. Dale, Aug 19 2011
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
TP:= select(t -> isprime(t) and isprime(t+2), [3, seq(i, i=5..2000, 6)]):
map(t -> t+1 - numtheory:-bigomega(t+1), P1); # Robert Israel, Dec 31 2024
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,easy
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
