|
| |
|
|
A075255
|
|
a(n) = n - (sum of primes factors of n (with repetition)).
|
|
7
| |
|
|
1, 0, 0, 0, 0, 1, 0, 2, 3, 3, 0, 5, 0, 5, 7, 8, 0, 10, 0, 11, 11, 9, 0, 15, 15, 11, 18, 17, 0, 20, 0, 22, 19, 15, 23, 26, 0, 17, 23, 29, 0, 30, 0, 29, 34, 21, 0, 37, 35, 38, 31, 35, 0, 43, 39, 43, 35, 27, 0, 48, 0, 29, 50, 52, 47, 50, 0, 47, 43, 56, 0, 60, 0, 35, 62, 53, 59, 60
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,8
|
|
|
COMMENTS
| a(n) = n - A001414(n).
|
|
|
EXAMPLE
| a(6)=1 because 6=2*3, sopfr(6)=2+3=5 and 6-5=1.
|
|
|
MATHEMATICA
| Join[{1}, Table[n-Total[Times@@@FactorInteger[n]], {n, 2, 80}]] (* From Harvey P. Dale, Sep 20 2011 *)
|
|
|
PROG
| (PARI) A075255(n)=n-sum(i=1, #n=factor(n)~, n[1, i]*n[2, i]) [From M. F. Hasler (www.univ-ag.fr/~mhasler), Oct 31 2008]
|
|
|
CROSSREFS
| Cf. A001414, A008472, A075254, A075653.
A145834 (= 0 followed by the nonzero terms of A075255) [From M. F. Hasler (www.univ-ag.fr/~mhasler), Oct 31 2008]
Sequence in context: A192498 A127572 A021815 * A135498 A104172 A091408
Adjacent sequences: A075252 A075253 A075254 * A075256 A075257 A075258
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Sep 10 2002
|
| |
|
|
