OFFSET
0,4
MATHEMATICA
Table[If[Abs@ # < 2, 0, # Total[#2/#1 & @@@ FactorInteger[Abs@ #]]] &@ Hypergeometric2F1[(1 - n)/2, -n/2, 2, 4], {n, 0, 31}] (* Michael De Vlieger, Oct 17 2016, after Michael Somos at A003415 and Peter Luschny at A001006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Bedard, Oct 16 2016
EXTENSIONS
More terms from Alois P. Heinz, Oct 16 2016
STATUS
approved