A390318 a(n) = floor(gamma^(-n)) where gamma is Euler's constant A001620.

1, 1, 3, 5, 9, 15, 27, 46, 81, 140, 243, 421, 731, 1266, 2194, 3801, 6585, 11409, 19765, 34243, 59325, 102777, 178058, 308477, 534423, 925864, 1604017, 2778888, 4814297, 8340552, 14449630, 25033330, 43369110, 75135020, 130168020, 225510201, 390686211, 676846168, 1172605336

Offset

0,3

Links

Table of n, a(n) for n=0..38.

Mathematica

a[n_] := Floor[1/EulerGamma^n]; Array[a, 40, 0] (* Amiram Eldar, Nov 01 2025 *)

Prog

(PARI) default(realprecision, 10000); A390318(n) = floor(Euler^(-n)) \\ Zhuorui He, Nov 03 2025

Crossrefs

Cf. A001620, A017913, A098907.

Sequence in context: A018436 A018298 A017913 * A307677 A140428 A340849

Adjacent sequences: A390315 A390316 A390317 * A390319 A390320 A390321

Keyword

nonn

Author

Dwight Boddorf, Nov 01 2025

Status

approved