|
Search: id:A065967
|
|
|
| A065967 |
|
n * Sum_{primes p dividing n} (1 + 1/p). |
|
+0
1
|
|
| 0, 3, 4, 6, 6, 17, 8, 12, 12, 27, 12, 34, 14, 37, 38, 24, 18, 51, 20, 54, 52, 57, 24, 68, 30, 67, 36, 74, 30, 121, 32, 48, 80, 87, 82, 102, 38, 97, 94, 108, 42, 167, 44, 114, 114, 117, 48, 136, 56, 135, 122, 134, 54, 153, 126, 148, 136, 147, 60, 242
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MAPLE
|
A065967 := proc(n) local i, j, k, t1, t2, t3; t1 := ifactors(n)[2]; t2 := n^1*add((1+1/(t1[i][1])^1), i=1..nops(t1)); end;
|
|
PROGRAM
|
(PARI) { for (n=1, 1000, s=0; p=2; while (p<=n, if(n%p == 0, s+=(1 + 1/p)); p=nextprime(p + 1)); write("b065967.txt", n, " ", n*s) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Nov 05 2009]
|
|
CROSSREFS
|
Sequence in context: A001615 A133689 A135510 this_sequence A117986 A070737 A135599
Adjacent sequences: A065964 A065965 A065966 this_sequence A065968 A065969 A065970
|
|
KEYWORD
|
nonn,new
|
|
AUTHOR
|
N. J. A. Sloane (njas(AT)research.att.com), Dec 09 2001
|
|
|
Search completed in 0.002 seconds
|
