/* ---------------------------------- */
/* save as fb.h */
/* ---------------------------------- */
double a_n(
double n)
{
return( (pow(n,n))/factorial(n) );
}
char a_neq[] = " (n**n) /(n)!";
/* ---------------------------------- */
double a_npls1(
double n)
{
return( (pow(n+1,n+1))/factorial(n+1) );
}
char a_npls1eq[] = "(n+1)**(n+1))/(n+1)!";
/* ---------------------------------- */
/* ---------------------------------- */