A062268 Numbers k such that floor(k*e) is a square.

0, 6, 30, 37, 53, 83, 133, 212, 230, 249, 377, 451, 477, 649, 745, 813, 920, 957, 995, 1073, 1113, 1154, 1369, 1507, 2125, 2296, 2414, 2596, 2658, 2721, 2849, 2914, 2980, 3114, 3182, 3679, 3753, 3903, 3979, 4056, 4212, 4291, 4371, 4533, 4615, 4781

Offset

0,2

Links

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

Example

floor(exp(1)*37) = 100 = 10^2.

Mathematica

Select[Range[0, 5000], IntegerQ@ Sqrt@ Floor[# E] &] (* Michael De Vlieger, Jul 01 2018 *)

Prog

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

Crossrefs

Cf. A022843.

Sequence in context: A307221 A351844 A345265 * A067879 A334900 A136375

Adjacent sequences: A062265 A062266 A062267 * A062269 A062270 A062271

Keyword

easy,nonn

Author

Jason Earls, Jul 01 2001

Extensions

More terms from John W. Layman, Oct 16 2001

Status

approved