Zseq (version 0.1.1)

Equidigital: Equidigital numbers

Description

Under OEIS A046758, an Equidigital number has equal digits than the number of digits in its prime factorization including exponents. First 6 Equidigital numbers are 1, 2, 3, 5, 7, 10. Though it doesn't matter which base we use, here we adopt only a base of 10.

Usage

Equidigital(n, Rmpfr = TRUE, PrecisionBits = 496)

Arguments

n

the number of first n entries from the sequence.

Rmpfr

a logical; TRUE to use large number representation, FALSE otherwise.

PrecisionBits

a positive integer for precision bits larger than 2.

Value

a vector of length n containing first entries from the sequence.

See Also

Frugal, Extravagant

Examples

# NOT RUN {
## generate first 20 Equidigital numbers
first20 = Equidigital(20)

## print without trailing 0's.
print(first20, drop0trailing = TRUE)

# }