Super-d numbers: Difference between revisions

First 10 super-9 numbers:

17546133 32613656 93568867 107225764 109255734 113315082 121251742 175461330 180917907 182557181</pre>

=={{header|Visual Basic .NET}}==

{{trans|D}}

<lang vbnet>Imports System.Numerics

Module Module1

Sub Main()

Dim rd = {"22", "333", "4444", "55555", "666666", "7777777", "88888888", "999999999"}

Dim one As BigInteger = 1

Dim nine As BigInteger = 9

For ii = 2 To 9

Console.WriteLine("First 10 super-{0} numbers:", ii)

Dim count = 0

Dim j As BigInteger = 3

While True

Dim k = ii * BigInteger.Pow(j, ii)

Dim ix = k.ToString.IndexOf(rd(ii - 2))

If ix >= 0 Then

count += 1

Console.Write("{0} ", j)

If count = 10 Then

Console.WriteLine()

Console.WriteLine()

Exit While

End If

End If

j += 1

End While

Next

End Sub

End Module</lang>

{{out}}

<pre>First 10 super-2 numbers:

19 31 69 81 105 106 107 119 127 131

First 10 super-3 numbers:

261 462 471 481 558 753 1036 1046 1471 1645

First 10 super-4 numbers:

1168 4972 7423 7752 8431 10267 11317 11487 11549 11680

First 10 super-5 numbers:

4602 5517 7539 12955 14555 20137 20379 26629 32767 35689

First 10 super-6 numbers:

27257 272570 302693 323576 364509 502785 513675 537771 676657 678146

First 10 super-7 numbers:

140997 490996 1184321 1259609 1409970 1783166 1886654 1977538 2457756 2714763

First 10 super-8 numbers:

185423 641519 1551728 1854230 6415190 12043464 12147605 15517280 16561735 18542300