OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harvey P. Dale)
FORMULA
a(n) = Sum_{m=1..n} Sum_{k=1..L} floor( p_n /(p_m)^k ), where L = ceiling( log(p_n)/log(p_m) ).
MAPLE
b:= proc(n) option remember; `if`(n=1, 0,
b(n-1)+numtheory[bigomega](n))
end:
a:= n-> b(ithprime(n)):
seq(a(n), n=1..60); # Alois P. Heinz, Jul 05 2019
MATHEMATICA
PrimeOmega[#!]&/@Prime[Range[60]] (* Harvey P. Dale, Nov 09 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jan 26 2003
STATUS
approved