OFFSET
1,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2500
EXAMPLE
a(1) = 4 - (2+2) = 0; a(2) = 6 - (2+3) = 1; a(3) = 8 - (2+2+2) = 2 ; a(4) = 9 - (3+3) = 3; a(5) = 10 - (2+5) = 3.
MATHEMATICA
cnpf[n_]:=n-Total[Flatten[Table[#[[1]], #[[2]]]&/@FactorInteger[n]]]; cnpf/@ Select[Range[100], CompositeQ] (* Harvey P. Dale, Aug 31 2021 *)
PROG
(PARI) A145834(n)={for(k=0, primepi(n), isprime(n++)&k--); n+0-sum(i=1, #n=factor(n)~, n[1, i]*n[2, i])} \\ M. F. Hasler, Oct 31 2008
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander R. Povolotsky, Oct 20 2008
EXTENSIONS
Edited and extended by Ray Chandler, Oct 24 2008
STATUS
approved