61.28.31 problem 91

Internal problem ID [12512]
Book : Handbook of exact solutions for ordinary differential equations. By Polyanin and Zaitsev. Second edition
Section : Chapter 2, Second-Order Differential Equations. section 2.1.2-3
Problem number : 91
Date solved : Monday, March 31, 2025 at 05:37:14 AM
CAS classification : [[_2nd_order, _with_linear_symmetries]]

\begin{align*} x y^{\prime \prime }+a \,x^{n} y^{\prime }+\left (a b \,x^{n}-a \,x^{n -1}-b^{2} x +2 b \right ) y&=0 \end{align*}

Maple
ode:=x*diff(diff(y(x),x),x)+a*x^n*diff(y(x),x)+(a*b*x^n-a*x^(n-1)-b^2*x+2*b)*y(x) = 0; 
dsolve(ode,y(x), singsol=all);
 
\[ \text {No solution found} \]
Mathematica
ode=x*D[y[x],{x,2}]+a*x^n*D[y[x],x]+(a*b*x^n-a*x^(n-1)-b^2*x+2*b)*y[x]==0; 
ic={}; 
DSolve[{ode,ic},y[x],x,IncludeSingularSolutions->True]
 

Not solved

Sympy
from sympy import * 
x = symbols("x") 
a = symbols("a") 
b = symbols("b") 
n = symbols("n") 
y = Function("y") 
ode = Eq(a*x**n*Derivative(y(x), x) + x*Derivative(y(x), (x, 2)) + (a*b*x**n - a*x**(n - 1) - b**2*x + 2*b)*y(x),0) 
ics = {} 
dsolve(ode,func=y(x),ics=ics)
 
RecursionError : maximum recursion depth exceeded