|
| |
|
|
A108298
|
|
Sum of the first 10^n terms in A097975. a(n) = sum_{m=1..10^n} t(m), where t(m) is the sum of the prime divisors of m that are greater than or equal to sqrt(m).
|
|
0
| | |
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Does a(n+1)/a(n) converge?
|
|
|
EXAMPLE
| The first 10^2 terms in A097975 sum to 1767, so a(2) = 1767.
|
|
|
MATHEMATICA
| s = 0; k = 1; Do[l = Select[Select[Divisors[n], PrimeQ], # >= Sqrt[n]&]; If[Length[l] > 0, s += l[[1]]]; If[n == k, Print[s]; s = 0; k *= 10], {n, 1, 10^7}]
|
|
|
CROSSREFS
| Cf. A097975.
Sequence in context: A196464 A089550 A007804 * A202384 A202369 A042743
Adjacent sequences: A108295 A108296 A108297 * A108299 A108300 A108301
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Ryan Propper (rpropper(AT)stanford.edu), Jul 24 2005
|
| |
|
|
