MUMPS program for calculating A345256(n) using Merab Leviashvili's formula.

Using it, 300 terms computed by Dimitar Tsvetkov were checked.

A345256(n)	; Calculating A345256(n)
	; using Merab Leviashvili's formula.
	; Written by Talmon Silver
	;-------------------------
	new pi,p2,ph,m,o,x,ax
	set pi=3.141592653589793238462643383279502884
	set p2=pi*2,ph=pi/2
	set m=n/pi,o=n\ph#4
	set (x,ax)=$$^%SIN(n)*n/p2
	if ax<0 set ax=-ax
	quit @("$$"_o)
	;
0()	quit m\1**2+(x+.25\1*2)
1()	quit m+.5\1**2-1-(x+.25\1*2)
2()	quit m\1**2-1+(ax+.75\1*2)
3()	quit m+.5\1**2-(ax+.75\1*2)