login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A101943 Sequence f[n, 5], where f[n, b] is described in A101942. 0
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 (list; graph; refs; listen; history; text; internal format)
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 * A247243 A110001 A302030

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 17 19:10 EDT 2019. Contains 324198 sequences. (Running on oeis4.)