A101943 Sequence f[n, 5], where f[n, b] is described in A101942.

1, 2, 4, 8, 16, 3, 6, 12, 24, 48, 9, 18, 36, 72, 144, 27, 54, 108, 216, 432, 81, 162, 324, 648, 1296, 5, 10, 20, 40, 80, 15, 30, 60, 120, 240, 45, 90, 180, 360, 720, 135, 270, 540, 1080, 2160, 405

Offset

0,2

Links

Table of n, a(n) for n=0..45.

Example

f[177, 5] = 700 because 177 = 1202_5 -> f[177, 5] = 7^1 * 5^2 * 3^0 * 2^2 = 700.

Mathematica

f[n_Integer, base_Integer] /; base >= 2 := Product[ Prime[i]^IntegerDigits[n, base][[Length[IntegerDigits[n, base]] + 1 - i]], {i, Length[IntegerDigits[n, base]]}] Table[f[i, 5], {i, 0, 45}]

Prog

(PARI)
f(n, b) = { my(d = digits(n, b), L = #d); prod(i=1, L, prime(i)^d[L+1-i]) }
apply(n -> f(n, 5), [0..45]) \\ Satish Bysany, Mar 07 2017

Crossrefs

Cf. A101942.

Sequence in context: A308539 A036122 A050124 * A331440 A247243 A341819

Adjacent sequences: A101940 A101941 A101942 * A101944 A101945 A101946

Keyword

base,nonn

Author

Orges Leka (oleka(AT)students.uni-mainz.de), Dec 21 2004

Status

approved