A383692 a(n) = round(Chi(n)) where Chi(x) is the cosh integral function.
1, 2, 5, 10, 20, 43, 96, 220, 519, 1246, 3036, 7480, 18599, 46596, 117478, 297780, 758319, 1938952, 4975454, 12807826, 33063593, 85572336, 221983185, 577057696, 1502975453, 3921470496, 10248248560, 26822559296, 70299597879, 184486604704, 484727787984
Offset: 1
Keywords
Crossrefs
Cf. A383542.
Programs
-
Mathematica
a[n_]:=Round[CoshIntegral[n]]; Array[a,31]
Comments