OFFSET
1,1
COMMENTS
From an idea of Michael B. Porter.
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
prime(8) = 19, and 19+1 = 20 = 2*2*5, so a(8) = 2+2+5 = 9.
MAPLE
A210934 := proc(n)
local p, pplus, f ;
p := ithprime(n) ;
pplus := ifactors(p+1)[2] ;
add(op(1, f)*op(2, f), f=pplus) ;
end proc:
seq(A210934(n), n=1..300) ; # R. J. Mathar, May 25 2022
MATHEMATICA
A210934[n_] := Plus @@ Times @@@ FactorInteger[Prime[n] + 1];
Array[A210934, 100] (* Paolo Xausa, Sep 29 2025 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo P. Lava, Mar 30 2012
STATUS
approved
