A092328 Solutions of x^2 = ceiling(x*r*floor(x/r)) where r=Pi.
0, 22, 44, 355, 710, 1065, 1420, 1775, 2130, 2485, 2840, 3195, 312689, 1146408, 5419351, 10838702
Offset: 1
Programs
-
Mathematica
Do[ If[ n^2 == Ceiling[n*3.1415926535897932346264*Floor[n/3.1415926535897932346264]], Print[n]], {n, 0, 10^8}] (* Robert G. Wilson v, Feb 26 2004 *)
-
PARI
for(x=0,2000000,if(x^2==ceil(Pi*x*floor(x/Pi)),print1(x,",")))
Extensions
More terms from Robert G. Wilson v, Feb 26 2004
Comments