fork download
copy 
  1. $i=<>;
  2. while($i--)
  3. {
  4. 	$n=<>;
  5. 	if(0==$n%2)
  6. 	{
  7. 		$n=$n/2;
  8. 		$x=$n*($n+1)*(4*$n+1)/2;
  9. 	}
  10. 	else
  11. 	{
  12. 		$n=($n-1)/2;
  13. 		$x=($n+1)*(4*$n*$n+7*$n+2)/2;
  14. 	}
  15. 	print $x,"\n";
  16. }
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
9
1
2
3
4
5
6
7
8
1000000
stdout
copy 
1
5
13
27
48
78
118
170
2.5000062500025e+17
https://ideone.com/kvK82
language:
Perl (perl 5.28.1)
created:
14 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!