A062269 Numbers k such that floor(gamma * k) is a square, where gamma is the Euler-Mascheroni constant (A001620).

0, 1, 2, 3, 7, 8, 16, 17, 28, 29, 44, 45, 63, 64, 85, 86, 111, 112, 141, 142, 174, 210, 211, 250, 251, 293, 294, 340, 341, 390, 391, 444, 445, 501, 502, 562, 563, 626, 627, 693, 694, 765, 839, 840, 917, 918, 998, 999, 1083, 1084, 1172, 1263, 1264, 1359, 1457

Offset

0,3

Links

Harry J. Smith, Table of n, a(n) for n = 0..1000

Maple

readlib(issqr): for n from 0 to 2000 do if issqr(floor(gamma*n)) then printf(`%d, `, n) fi od:

Mathematica

Select[Range[0, 1500], IntegerQ[Sqrt[Floor[# EulerGamma]]]&] (* Harvey P. Dale, Oct 08 2017 *)

Prog

(PARI) for(n=0, 200, if(issquare(floor(Euler*n)), print(n)))
(PARI) { default(realprecision, 30); n=-1; for (m=0, 10^9, if (issquare(floor(Euler*m)), write("b062269.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 03 2009

Crossrefs

Cf. A001620 (Euler-Mascheroni constant).

Sequence in context: A101755 A363847 A076550 * A244508 A060121 A002964

Adjacent sequences: A062266 A062267 A062268 * A062270 A062271 A062272

Keyword

easy,nonn

Author

Jason Earls, Jul 01 2001

Extensions

More terms from Francisco Salinas (franciscodesalinas(AT)hotmail.com), Jan 05 2002

Status

approved