|
Search: id:A101943
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
0,2
|
|
|
EXAMPLE
|
f[177, 5]= 700 because (177)_5 = 1202 -> 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}]
|
|
CROSSREFS
|
Cf. A101942.
Sequence in context: A102251 A036122 A050124 this_sequence A110001 A033491 A050076
Adjacent sequences: A101940 A101941 A101942 this_sequence A101944 A101945 A101946
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Orges Leka (oleka(AT)students.uni-mainz.de), Dec 21 2004
|
|
|
Search completed in 0.002 seconds
|
