﻿ Project Euler Problem 29
You are on the Home/Other Tutorials/Project Euler/Problem 29 page

Web This Site

# Project Euler - Problem 29

## Problem description

Consider all integer combinations of ab for 2 a 5 and 2 b 5:

22=4, 23=8, 24=16, 25=32
32=9, 33=27, 34=81, 35=243
42=16, 43=64, 44=256, 45=1024
52=25, 53=125, 54=625, 55=3125

If they are then placed in numerical order, with any repeats removed, we get the following sequence of 15 distinct terms:

4, 8, 9, 16, 25, 27, 32, 64, 81, 125, 243, 256, 625, 1024, 3125

How many distinct terms are in the sequence generated by ab for 2 a 100 and 2 b 100?

## Solution

I couldn't think of any slick way to solve this problem.  So, using the Large Number Arithmetic module, the following code took about 25 seconds.

```Sub Euler029()
Dim A As Integer, B As Integer
Dim Rslt As Collection, aRslt As String
Set Rslt = New Collection
Dim ProcTime As Single
ProcTime = Timer
For A = 2 To 100
For B = 2 To 100
aRslt = LargePower(CStr(A), CStr(B))
On Error Resume Next