login
A061812
Numbers k such that floor(Pi*k) is a square.
1
0, 3, 8, 26, 32, 46, 54, 92, 115, 199, 268, 306, 326, 368, 390, 436, 796, 828, 861, 963, 1071, 1146, 1304, 1345, 1429, 1472, 1560, 2193, 2246, 2300, 2465, 2636, 2873, 2995, 3120, 3312, 3377, 3443, 3713, 3782, 3922, 3993, 4137, 4738, 4816, 5297, 6062, 6239
OFFSET
0,2
LINKS
EXAMPLE
Floor(Pi*861) = 2704 = 52^2, so 861 is a term;
floor(Pi*1146) = 3600 = 60^2, so 1146 is a term.
MATHEMATICA
Select[Range[0, 7000], IntegerQ[Sqrt[Floor[Pi #]]]&] (* Harvey P. Dale, May 14 2011 *)
PROG
(PARI) for(n=0, 1200, if(issquare(floor(Pi*n)), print(n)))
(PARI) { n=-1; for (a=0, 3714376, if (issquare(floor(Pi*a)), write("b061812.txt", n++, " ", a)) ) } \\ Harry J. Smith, Jul 28 2009
CROSSREFS
Cf. A022844.
Sequence in context: A097713 A009392 A130648 * A009452 A206141 A281972
KEYWORD
easy,nice,nonn
AUTHOR
Jason Earls, Jul 01 2001
EXTENSIONS
More terms from Naohiro Nomoto, Oct 04 2001
STATUS
approved