OFFSET
1,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
Array[Plus@@Last/@FactorInteger[2*Prime[ # ]-1]&, 6! ] (* Vladimir Joseph Stephan Orlovsky, Feb 28 2010 *)
Table[Total[FactorInteger[2p-1][[;; , 2]]], {p, Prime[Range[100]]}] (* Harvey P. Dale, May 30 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved