Вывести все целые числа В, для которых А делится без остатка на В*В и не делится без остатка на В*В*В

static void Main(string[] args)
        {
            string strA, res;
            Int32 intA1;
            Int16 n = Int16.MaxValue; //ограничение для перебора целых чисел. В этом случае n = 32767.
             
            Console.Write("Введите любое целое число: ");
            strA = Console.ReadLine();
            Console.WriteLine("\r\n");
            intA1 = Convert.ToInt32(strA);
            res = "";
 
            for (int intB = 1; intB <= n; intB++)
            {
                if (((intA1 % (intB * intB)) == 0) && ((intA1 % (intB * intB * intB)) != 0))
                {
                    res += intB.ToString() + " ";
                }
            }
            if (string.IsNullOrEmpty(res))
            { res = "Таких чисел нет"; }
 
            Console.WriteLine("Целые числа В, для которых А делиться без остатка на В*В и не делиться без остатка на В*В*В: 
 
");
            Console.Write(res);
            Console.ReadLine();
        }

            int val = int.MaxValue;
            var res = Enumerable.Range(1, (int)(Math.Sqrt(val)))
                .Where(a => val % (a * a) == 0 && val % (a * a * a) != 0);
 
            Console.WriteLine(string.Join(" ", res));
            Console.ReadKey(false);