OFFSET
1,1
MATHEMATICA
Array[Plus@@First/@FactorInteger[2*Prime[ # ]-1]&, 5! ] (* Vladimir Joseph Stephan Orlovsky, Feb 28 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved