The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A062269 Numbers k such that floor(gamma * k) is a square, where gamma is the Euler-Mascheroni constant (A001620). 1

%I #20 Jul 04 2018 02:40:22

%S 0,1,2,3,7,8,16,17,28,29,44,45,63,64,85,86,111,112,141,142,174,210,

%T 211,250,251,293,294,340,341,390,391,444,445,501,502,562,563,626,627,

%U 693,694,765,839,840,917,918,998,999,1083,1084,1172,1263,1264,1359,1457

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

%H Harry J. Smith, <a href="/A062269/b062269.txt">Table of n, a(n) for n = 0..1000</a>

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

%t Select[Range[0,1500],IntegerQ[Sqrt[Floor[# EulerGamma]]]&] (* _Harvey P. Dale_, Oct 08 2017 *)

%o (PARI) for(n=0,200, if(issquare(floor(Euler*n)),print(n)))

%o (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

%Y Cf. A001620 (Euler-Mascheroni constant).

%K easy,nonn

%O 0,3

%A _Jason Earls_, Jul 01 2001

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 26 08:16 EDT 2023. Contains 365654 sequences. (Running on oeis4.)