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