Super-d numbers: Difference between revisions
Content added Content deleted
Line 27: | Line 27: | ||
:* '''[http://oeis.org/A014569 OEIS: A014569 - Super-3 Numbers]''' |
:* '''[http://oeis.org/A014569 OEIS: A014569 - Super-3 Numbers]''' |
||
=={{header|D}}== |
|||
{{trans|Go}} |
|||
<lang d>import std.bigint; |
|||
import std.conv; |
|||
import std.stdio; |
|||
import std.string; |
|||
void main() { |
|||
auto rd = ["22", "333", "4444", "55555", "666666", "7777777", "88888888", "999999999"]; |
|||
BigInt one = 1; |
|||
BigInt nine = 9; |
|||
for (int ii = 2; ii <= 9; ii++) { |
|||
writefln("First 10 super-%d numbers:", ii); |
|||
auto count = 0; |
|||
inner: |
|||
for (BigInt j = 3; ; j++) { |
|||
auto k = ii * j ^^ ii; |
|||
auto ix = k.to!string.indexOf(rd[ii-2]); |
|||
if (ix >= 0) { |
|||
count++; |
|||
write(j, ' '); |
|||
if (count == 10) { |
|||
writeln(); |
|||
writeln(); |
|||
break inner; |
|||
} |
|||
} |
|||
} |
|||
} |
|||
}</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 |
|||
First 10 super-9 numbers: |
|||
17546133 32613656 93568867 107225764 109255734 113315082 121251742 175461330 180917907 182557181</pre> |
|||
=={{header|F_Sharp|F#}}== |
=={{header|F_Sharp|F#}}== |
||
Line 61: | Line 118: | ||
17546133 32613656 93568867 107225764 109255734 113315082 121251742 175461330 180917907 182557181 |
17546133 32613656 93568867 107225764 109255734 113315082 121251742 175461330 180917907 182557181 |
||
</pre> |
</pre> |
||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
<lang factor>USING: arrays formatting io kernel lists lists.lazy math |
<lang factor>USING: arrays formatting io kernel lists lists.lazy math |