A383542 a(n) = round(Shi(n)) where Shi(x) is the sinh integral function.
0, 1, 3, 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: 0
Keywords
Crossrefs
Cf. A383692.
Programs
-
Mathematica
a[n_]:=Round[SinhIntegral[n]]; Array[a,31]
Comments