C#-Code

    class Program
    {
        static void Main(string[] args)
        {
            DateTime start,stop;
            Zahlen zahlen = new Zahlen();
            for (int i = 1; i <= 7; i++)
            {
                int max = (int)Math.Round(Math.Pow(10, i));                

                start = DateTime.Now;
                zahlen.search(max);
                stop = DateTime.Now;

                foreach (int v in zahlen.vollkommeneZahlen)
                {
                    Console.Write(v + " , ");
                }
                Console.WriteLine();
                Console.WriteLine("Vollkommene in(" + max + "): " + (stop - start));
                                
                foreach (int[] v in zahlen.befreundeteZahlen)
                {
                    foreach (int vv in v)
                    {
                        Console.Write(vv + " , ");
                    }
                    Console.WriteLine();
                }
                Console.WriteLine();
                Console.WriteLine("Befreundet in(" + max + "): " + (stop - start));
                                
                foreach (int[] v in zahlen.geselligeZahlen)
                {
                    foreach (int vv in v)
                    {
                        Console.Write(vv + " , ");
                    }
                    Console.WriteLine();
                }
                Console.WriteLine();
                Console.WriteLine("Gesellig in(" + max + "): " + (stop - start));
                Console.ReadKey();
            }
        }
    }

    class Zahlen
    {
        private List<int> vollkommenListe;
        public int[] vollkommeneZahlen
        {
            get
            {
                return vollkommenListe.ToArray();
            }
        }

        private List<int[]> befreundetListe;
        public int[][] befreundeteZahlen
        {
            get
            {
                return befreundetListe.ToArray();
            }
        }

        private List<int[]> geselligeListe;
        public int[][] geselligeZahlen
        {
            get
            {
                return geselligeListe.ToArray();
            }
        }

        private static int[] teiler(int zahl)
        {
            List<int> teilr = new List<int>();
            for (int i = 1; i < Math.Sqrt(zahl); i++)
            {
                if (zahl % i == 0)
                {
                    teilr.Add(i);
                    if (i != 1) teilr.Add(zahl / i);
                }
            }
            return teilr.ToArray();
        }

        public void search(int max)
        {
            vollkommenListe = new List<int>();
            befreundetListe = new List<int[]>();
            geselligeListe = new List<int[]>();
            for (int i = 1; i <= max; i++)
            {
                if (!vollkommenListe.Contains(i) && !befreundetListe.Exists(x => x.Contains(i)) && !geselligeListe.Exists(x => x.Contains(i)))
                {
                    int[] zahlen = { i };
                    searching(max, zahlen);
                }
                if (i % (max / 10000 == 0 ? 1 : max / 10000) == 0)
                {
                    Console.Clear();
                    Console.Write(((double)i * 100.0 / (double)max).ToString("00.00") + " %");
                }
            }
            Console.WriteLine();
        }

        private void searching(int max, int[] zahlen)
        {
            int[] teilr = teiler(zahlen[zahlen.Length - 1]);
            int zahl = teilr.Sum();
            if (1 > zahl || zahl > max) return;
            if (zahlen.Contains(zahl))
            {
                if (zahlen[0] == zahl)
                {
                    switch (zahlen.Length)
                    {
                        case 1:
                            vollkommenListe.Add(zahlen[0]);
                            break;
                        case 2:
                            befreundetListe.Add(zahlen);
                            break;
                        default:
                            geselligeListe.Add(zahlen);
                            break;
                    }
                }
                return;
            }
            else
            {
                int[] neueZahl = { zahl };
                int[] neueZahlen = new int[zahlen.Length + 1];
                zahlen.CopyTo(neueZahlen, 0);
                neueZahl.CopyTo(neueZahlen, zahlen.Length);
                searching(max, neueZahlen);
            }
            
        }
    }